Fill in Effects

A

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.
 
P

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top