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 |
All times are GMT +1. The time now is 05:48 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com