msoShapeRectangle background image as another shape object in the workbook

[justin-uk]

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]

Shapes("Picture1") is refering to a Shape named Picture1, not a picture.

irillydunnonutink, but you can try this.

Shp.Fill.UserPicture = Shapes("Shape1").Duplicate 'Where Shape1 holds the picture you want

But I doubt that will work. You can also try

Set ObjectVariable = Shapes(Shape1").CopyPicture
shp.Fill.UserPicture ObjectVariable

But, like I said, idunnonutink.

 

[justin-uk]

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!