msoShapeRectangle background image as another shape object in the workbook

justin-uk

New Member
Joined
Dec 3, 2007
Messages
21
Hi,

I am creating a shape and want to use an image as its background. I have discovered the UserPicture attribute, but I suspect that can only refer to a file on an external filesystem. I want my spreadsheet to be totally portable.

Is it possible to set the shape background to be another object already in the workbook?

This works...

Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
0#, 0#, 54, 14)
shp.Fill.UserPicture "W:\Spreadsheets\background.bmp"

This doesn't work. Why?

Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
0#, 0#, 54, 14)
shp.Fill.UserPicture Sheets("Data").Shapes("Picture1")

Thanks,

Justin
 

SamTYler

Well-known Member
Joined
Mar 10, 2004
Messages
784
Shapes("Picture1") is refering to a Shape named Picture1, not a picture.

irillydunnonutink, but you can try this.

Code:
Shp.Fill.UserPicture = Shapes("Shape1").Duplicate 'Where Shape1 holds the picture you want
But I doubt that will work. You can also try
Code:
Set ObjectVariable = Shapes(Shape1").CopyPicture
shp.Fill.UserPicture ObjectVariable
But, like I said, idunnonutink.
 

justin-uk

New Member
Joined
Dec 3, 2007
Messages
21
Thanks Sam, but neither of these methods work.

For both ideas I get the error "object doesn't support this property or method"

Just to confirm I am refering to the picture correctly as
Sheets("Data").Shapes("Picture1").Delete works. It seems strange to me that MS didn't think anyone would want to use an internal image for the background!
 

Forum statistics

Threads
1,085,863
Messages
5,386,395
Members
401,997
Latest member
cizwiz

Some videos you may like

This Week's Hot Topics

Top