Shapes Fill

[mhisma]

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

 

[Peter T]

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]

Thanks Peter,
thats works very well..

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