Fill in Effects
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
"Andrew" wrote in message
...
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.
--
Traveler
|