Select Pasted Picture

[ktkelly_1]

I am trying to rename a picture that I just pasted (a copied screenshot) so that way I can consistently copy and paste and modify using the same name. So far the code I have is this:

Application.SendKeys "({1068})", True
DoEvents


Dim PicName As Variant
PicName = "Cinco Bug All Screenshot1"
Sheets("Cinco Bugs").Activate
ActiveSheet.Shapes.Range(Array("Picture 1")).Delete
Range("A1").Select
ActiveSheet.Pictures.Paste
ActiveSheet.Shapes.Range(Array(PicName)).Select

The last two lines is where I would like to consistently rename the just pasted picture which my guess will have a different name every time it is pasted. Any suggestions?
I am also hoping I can adjust the new defined name of the picture with Pic Name and change the "Picture 1" (or inconsistent name when pasted) to the name defined in the variable "PicName".

 

[Domenic]

Try...

Dim PicObj As Picture
Dim PicName As String


PicName = "Cinco Bug All Screenshot1"


With Sheets("Cinco Bugs")
    On Error Resume Next
    .Pictures(PicName).Delete
    On Error GoTo 0
    With .Pictures.Paste
        .Name = PicName
    End With
End With

Hope this helps!