Excel VBA 質問スレ Part79

[339 デフォルトの名無しさん 2023/03/19(日) 22:45:35.69 ID:M92RK9ru]

こんな感じ？
Set shape1 = ActiveSheet.Shapes(1)
shape1.Copy
ActiveSheet.PasteSpecial Format:="図 (PNG)"
Set shape2 = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
shape2.Left = shape1.Left
shape2.Top = shape1.Top
shape1.Delete