XL 2010 Copier une image d'un commentaire

Francky79

XLDnaute Occasionnel
Bonjour à tous,

Est-il possible de copier l'image se trouvant dans un commentaire ?
Et si oui, comment ?

Merci de votre aide.
 
Solution
re
VB:
Sub test3()
    Application.ScreenUpdating = False
    image = ActiveCell.Address
    With ActiveSheet
        With Range(image)
            .Comment.Visible = True
            .Comment.Shape.CopyPicture
            .Comment.Visible = False
        End With
        With Feuil2
            .Activate
            .[D1].Select
            .Paste
        End With
        .Activate
    End With
End Sub

patricktoulon

XLDnaute Barbatruc
re
au temps pour moi
Sub test3()
application.screenupdating=false
image = ActiveCell.Address
With ActiveSheet
With Range(image)
.Comment.Visible = True
.Comment.Shape.CopyPicture
.Comment.Visible = False
End With
with [Sheets2]
.activate
.[D1].Select
.Paste
end with
.activate
End With
end sub
 

patricktoulon

XLDnaute Barbatruc
re
VB:
Sub test3()
    Application.ScreenUpdating = False
    image = ActiveCell.Address
    With ActiveSheet
        With Range(image)
            .Comment.Visible = True
            .Comment.Shape.CopyPicture
            .Comment.Visible = False
        End With
        With Feuil2
            .Activate
            .[D1].Select
            .Paste
        End With
        .Activate
    End With
End Sub
 

Discussions similaires