Excel - Vba - Picture Object naming

Asked By Jef on 21-Aug-08 08:25 AM
Hi,

I have a macro that copy's a range in the workbook to a picture.

1.) Copy's a range and saves as a picture

What I want to do - rename the picture object.  I think it is named "Picture
1" or "Picture X" by default, but this is no good since I want to refer to it
later in the code.

Code:
Sub Create_picture()
'Create the picture
Worksheets("Pol Value").Range("A1:J50").CopyPicture xlScreen, xlBitmap

End sub

Thanks for your help




Bernie Deitrick replied on 21-Aug-08 09:04 AM
Jeff,

With Worksheets("Pol Value")
.Range("A1:J50").CopyPicture xlScreen, xlBitmap
.Paste Destination:=.Range("K1")
.Shapes(.Shapes.Count).Name = "NewPictureName"
End With

HTH,
Bernie
MS Excel MVP
Mike replied on 21-Aug-08 09:11 AM
Jeff,

When you paste it it is selected so immedialtly after pasting try this

Selection.Name = "MyPicture"

Mike