画像をあるコメントから別のコメントにコピーするにはどうすればいいですか？ 「C：\パス\のimg.png」

Question

は、だから私は ActiveCell.Comment.Shape.UserPiсtureでsetted絵をconatainsセルにコメントしてい

をしかし、私はそれが別のセルにコピーすることにしたいです。それ、どうやったら出来るの？

Answer 1

ShapeのPickupとApplyのメソッドを使用する必要がありますが、設定されているすべてのフォーマットは、図形だけでなく、図形の形になります。

Sub test() 

    Dim comment1 As Shape 
    Dim comment2 As Shape 

    Set comment1 = Sheet1.Shapes("Comment 1") 
    Set comment2 = Sheet1.Shapes("Comment 2") 

    'Copy all of the formats from the comment's shape 
    comment1.PickUp 

    'Paste all of the copied formats to the target 
    comment2.Apply 

End Sub