別のワークシートにある画像をコピペする

2023年7月28日

Sub testing()
    Dim img As Picture
    Set img = Sheet2.Pictures(1)

    img.Copy '画像をコピー
    
    Sheet1.Range("J1").PasteSpecial  '貼り付け
End Sub