Sub test()
Dim shp As Shape
Dim fType As MsoFillType

Set shp = ActiveSheet.Shapes(1) ' < change

fType = shp.Fill.Type

End Sub


type "fType =" and look at the intellisense for possible values

Regards,
Peter T



"mhisma" wrote in message
...
Dear All,
is there any way to check the fill type of a shapes using VBA? I have a
worksheet contain some shapes with different fills type ( e.g. Solid or
Patterned ), and each shape represent different object ( e.g. patterned =
car, solid = motorcycle), so I want to list all shapes with its fill type
(
e.g. shape1 = textbox = fill solid)

Any help will be greatly appreciated

Regards