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

Francky79

XLDnaute Occasionnel
Merci de ton aide,

Mais l'image extraite est vide.
Capture.JPG
 

fanch55

XLDnaute Barbatruc
Bonsoir @Francky79, @patricktoulon , le fil .
Attention:
Pour un commentaire, ce n'est pas l'image de l'image qui est copiée mais l'image complète du commentaire ( image + texte + bordure) .
Il faut amender un peu la proposition de Patrick:
Code:
Sub test2()
    With ActiveSheet
        With Range("A1")
            Comment_Visible = .Comment.Visible
            Comment_Bordure = .Comment.Shape.Line.Visible
            Comment_Text = .Comment.Text
            .Comment.Shape.Line.Visible = False
            .Comment.Text " "
            
            .Comment.Visible = True
                .Comment.Shape.CopyPicture
            .Comment.Visible = Comment_Visible
            
            .Comment.Shape.Line.Visible = Comment_Bordure
            .Comment.Text Comment_Text
        End With
        .[b4].Select
        .Paste
    End With
End Sub
 

Francky79

XLDnaute Occasionnel
Patricktoulon merci pour tes infos.
Dans mon commentaire il y a qu'une image donc je garde le code avec le moins de ligne (c'est mieux pour ma tête)
Par contre Comment remplacer [b4] pour copier l'image en feuille 2 cellule B4
.[Sheets2].[B4].Select ne marche pas bien sûre, je suis dessus depuis 1 heure je demande de l'aide.
 

Francky79

XLDnaute Occasionnel
Tant pis, je prend le risque.
Car dans la macro je choisis la cellule du commentaire qui n'est jamais la même.
Par contre la cellule destination reste tout le temps la même.

Sub test3()
image = ActiveCell.Address
With ActiveSheet
With Range(image)
.Comment.Visible = True
.Comment.Shape.CopyPicture
.Comment.Visible = False
End With
.[Sheets2].[D1].Select

.Paste
End With

End Sub
 

patricktoulon

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

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 850
dernier inscrit
Danigra