Objet Wordart dans commentaire de cellule

[La Vouivre]

Bonjour amis Excelliens amie Excelliennes
Je cherche à rentrer par VBA un objet Wordart dans un commentaire, je n’ai rien trouver sur le forum ni sur le net, connaissez vous le code pour rentrer un objet dans un commentaire
Merci pour vos travaux

 

[skoobi]

Re : Objet Wordart dans commentaire de cellule

Bonjour,

en supposant que l'objet Wordart est le premier objet de la feuille, commentaire ajouté en A1:

Range("A1").AddComment Activesheet.Shapes(1).TextEffect.Text

 

[La Vouivre]

Re : Objet Wordart dans commentaire de cellule

Merci de t’intéresser à mon problème mais j’ai un message d’erreur
J’ai mis ton code dans une macro toute neuve « par enregistreur de macro » et quand je déclanche la macro un message arrive
L’accès à ce membre n’est possible que pour un objet wordart
Comme tu l’a dit en élève sage j’ai fais un classeur tous neuf ,je me suis mis sur la cellule A1 ,j’ai fait un commentaire , ensuite j’ai fais un wordart ,j’ai déclenché la macro est la …planté
Je ne sais pas quoi faire, peut tu encore m’aider
Merci pour ton travail

 

[skoobi]

Re : Objet Wordart dans commentaire de cellule

Re,

L’accès à ce membre n’est possible que pour un objet wordart

Tu dois avoir d'autres objets (genre bouton, image etc...) est-ce le cas?

j’ai fait un commentaire , ensuite j’ai fais un wordart ,j’ai déclenché la macro est la …planté

Non, non, il ne faut pas créer un commentaire, il est créé par le code grace à AddComment.
A te relire.

 

[Pierrot93]

Re : Objet Wordart dans commentaire de cellule

Bonjour La Vouivre, Skoobi🙂

Skoobi, d'après ce que j'ai compris, La Vouivre souhaite inséré l'OBJET WordArt dans un commentaire et non le texte, enfin me semble t'il.

Si c'est le cas, personnellement vois pas trop de solution, utilser un subterfuge ou bien les API... Pas gagné... enfin pour moi...

bonne journée
@+

 

[chris]

Re : Objet Wordart dans commentaire de cellule

Bonjour

Je suis très en retard mais je me souviens qu'il y a eu un fil du forum : coller une image dans un commentaire.
On peut peut-être combiner les codes et traiter le Wordart comme une image ?

 

[La Vouivre]

Re : Objet Wordart dans commentaire de cellule

bonjour les amis
je viens de revenir sur le forum et surprise les amis se sont mobilisés pour trouver la solution .
Effectivement Skoobi est dans le vrais , mais si je fais un texte en wordart ,seul le texte et pris dans le commentaire par la mise en forme
je vous jouint le fichier
merci à tous

 

[MichelXld]

Re : Objet Wordart dans commentaire de cellule

bonjour

tu peux tester

Option Explicit
Private Const Fichier As String = "C:\ImageTemp.gif"
 
Sub WordArtDansCommentaire()
   Dim nb As Byte
   Dim Sh As Shape
   Dim Cm As Comment
 
   'Supprime l'image temportaire si elle existe
   If Dir(Fichier) <> "" Then Kill Fichier
 
    'Définit le 1er shape (wordArt) de la feuille comme image
    ' à afficher dans le commentaire
    Set Sh = Worksheets("Feuil1").Shapes(1)
 
    'copie le shape dans la feuille
    Sh.CopyPicture
    'crée un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, _
                        Sh.Width, Sh.Height).Chart
        .Paste 'colle l'image dans graphique
        ' enregistre le graphique au format gif
        .Export Fichier, "GIF"
    End With
 
    nb = ActiveSheet.ChartObjects.Count
    'supprime le graphique
    ActiveSheet.ChartObjects(nb).Delete
 
    'Crée un commentaire dans la cellule A1
    If Not Range("A1").Comment Is Nothing Then _
        Range("A1").Comment.Delete
    Set Cm = Range("A1").AddComment
    'Insère une image dans le commentaire
    Cm.Shape.Fill.UserPicture Fichier
End Sub

bonne journée
michel

 

[La Vouivre]

Re : Objet Wordart dans commentaire de cellule

Bravo MichelXLD
Le wordart et bien copier dans le commentaire, mais apparemment le format est prédéfini, car je ne peux pas changer la mise en forme du Wordart ,de plus est-il possible de pouvoir mettre différant Wordart dans différant commentaire de la feuille
Merci à tous pour votre mobilisation

 

[chris]

Re : Objet Wordart dans commentaire de cellule

Bonjour

Si j'ai bien compris tu veux mettre des Wordart dans les commentaires et qie ces Wordart restent des Wordart modifiables. Cela est impossible je pense : tu peux en obtenir le texte ou l'image mais sans doute pas l'objet lui-même.

Je sais, je suis trop curieuse mais quel est l'objectif ?