Fill in Effects

[Andrew]

We are trying to utilise the fill and effects function to color floor plans.
The desired effect is floor tiles laid in different formats. The function
works well however there are not enough tile effects to suit our
requirements. Is there a way to change some of these fill effects and save as
standard.

 

[Peter T]

Sounds like a perfect use for a little known capability, try this

Sub test()
Dim shp As Shape

With Range("B2")
Set shp = ActiveSheet.Shapes.AddShape(1, .Left, .Top, 30#, 30#)
End With

shp.Fill.UserPicture "C:\WINDOWS\Santa Fe Stucco.bmp" ' < change

End Sub

Replace the picture file with suitably sized pictures of your tiles (use bmp
or jpg).

Manually, format, colors & Lines, Color, Fille effects, Picture, select
picture...

Record a macro to get the syntax for any other formats, eg border, then edit
out all the select's and other unnecessary stuff.

Regards,
Peter T