excel - specialpaste の後に形状名を設定しますか?

Question

specialpaste の後に形状名を設定するにはどうすればよいですか?

これが私のコードです。

With Sheets("sheet1")
  .Shapes("testpic").Copy
  .PasteSpecial Format:=xlBitmap
End With

新しい画像の名前と場所 (.top、.left など) を設定する方法

Answer 1

シェイプを追加すると、インデックスが最大になるため、次のようになります。

Sub CopyShape()
Dim ws As Excel.Worksheet

Set ws = Sheets("sheet1")
With ws
    .Shapes("testpic").Copy
    .PasteSpecial Format:=xlBitmap
    With .Shapes(.Shapes.Count)
        .Name = "myName"
        .Top = 100
        'etc.
    End With
End With
End Sub