XL 2010 Copier une image d'un commentaire

[Francky79]

Bonjour à tous,

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

Merci de votre aide.

 

[patricktoulon]

BONSOIR
Ben tout simplement
exemple
range("A1").Comment.Shape.CopyPicture
activesheet.paste

et voila tu la sur la feuille l'image du commentaire

 

[Francky79]

Merci de ton aide,

Mais l'image extraite est vide.

 

[patricktoulon]

re
je pensais pas a devoir le dire mille excuses
avant
with range("A1")
.comment.visible=true
.Comment.Shape.CopyPicture
.comment.visible=false
end with

 

[Francky79]

Merci ,

Mais je suis un bricoleur du dimanche et souvent je cherche je cherche et je demande votre aide.
La traduction du code c'est:
Commentaire (avec image) en A1 extraction en B4 ?
Je dois encore oublier un truc.

 

[patricktoulon]

non
exemple on copie le com qui est en A1 et on colle l'image en b4

Sub test2()
    With ActiveSheet
        With Range("A1")
            .Comment.Visible = True
            .Comment.Shape.CopyPicture
            .Comment.Visible = False
        End With
        .[b4].Select
        .Paste
    End With
End Sub

 

[Francky79]

Merci impeccable.
Je voudrais une autre fonctionnalité, je cherche, et je vais surement de demander de l'aide.

 

[fanch55]

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:

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

 

[patricktoulon]

re
@fanch55 crâneur!!! 😉 😛

 

[Francky79]

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.

 

[patricktoulon]

re
il te faut activer d'abords la feuille puis sélectionner la [B4]
il y a une autre technique aussi pour copier une image vers une autre feuille mais si tu a mal a la tete je vais m'abstenir

 

[Francky79]

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]

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

 

[Francky79]

Ca coince a cette ligne:
.[Sheets2].Activate

Pas simple les macros 🙁

 

[patricktoulon]

enleve le point devant sheets2