Refencing Shapes Fill Style in code (Win 2KPro, Office2KPro)

[steve_skelton13]

This may be easy but I'm having a little trouble.

I have a complex map with a bunch of counties (msoFreeForm shapes) and some are filled white, some filled with a particular color, and others filled with a gradiant. What I want to do is run thru all the shapes and, if the shape DOES NOT use a gradient fill, specify a solid color fill. I can't find the method for testing whether a shapes is or is not using a gradient fill.

Any suggestions?

TIA!

[StuartR]

Have you looked at the value of Shape.Fill.GradientStyle (This is from Word 2002, I assume it is the same for Word 2000)

StuartR

[steve_skelton13]

actually i have put together code that checks for a particular type of gradient (e.g. msoGradientFromCenter) and that does work. i was wondering if there is a more generic 'Gradient [any style] True/False' but, at the moment, I can get what i need to get done done.

[StuartR]

Trial and error suggests that the GradientStyle for an object with no Gradient returns -2, which is msoGradientMixed. I assume this is also what you would get if you had a number of objects with different styles selected.

StuartR

[steve_skelton13]

great -- thanks for helping. the particular graphic i am working with has either solid fills or gradient center fills but it's nice to know how to handle a more complex scenario.

[DoryO]

If Selection.ShapeRange.Fill.GradientVariant > 0 Then MsgBox "Gradient!"