How to name a range-to copypicture?

[minmark]

Dear Gents,

I would like to name a copied picture as following code.
Would you please help me to figure out how to name the shape generate from
this range A4:AH11? I hope to name it with"My picture".
Many Thanks.

Sub RM()
    Sheet7.Range("A4:AH11").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    
    
    Sheets("R_M").Select
    Range("A7:A8").Select
    ActiveSheet.Paste
    
    Selection.ShapeRange.IncrementLeft 80
    Selection.ShapeRange.IncrementTop 20
    Call PDFActiveSheet
End Sub

 

[Yongle]

Try this

Sub RM()
    Dim pic As Picture
    Sheet7.Range("A4:AH11").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Sheets("R_M").Activate
    With ActiveSheet
        .Range("A7:A8").Select
        .Paste
        Set pic = .Pictures(.Pictures.Count)
    End With
    With pic
        .Name = "My picture"
        .ShapeRange.IncrementLeft 80
        .ShapeRange.IncrementTop 20
    End With
    
    Call PDFActiveSheet
End Sub

 

[minmark]

Thanks.
It works!!