Modifying VBA Shapesheet Not Updating Shape

[TheInsider]

Hi,

I'm attempting to change the foreground fill-color of various shapes via VBA code, as follows:

Visio.ActivePage.Shapes("Sheet.61").Cells("FillForegnd").Formula = "RGB(255,0,0)"

This works with some shapes but not with others. The funny thing is, after the code executes, the Shapesheet reflects the new value, and if I right-click the shape and select Format->Fill..., the dialog box will display the correct (new) fill color. However, the shape, itself, never changes color!

Has anyone seen this phenomenon before? Is it a bug in Visio, or am I supposed to refresh the drawing somehow? I tried saving the drawing and then closing & reopening, but the color doesn't change.

TIA

 

[TheInsider]

Bah! I figured it out. Apparently some sheets are composed of more than one shape, so you have to do a For Each through the .Shapes collection to set each sub-shape's color individually.