Insertion texte dans forme automatique

[dONut]

Bonjour tout le monde,

voilà mon problème : je récupère un commentaire à partir d'une base de données que j'insére en commentaire sur la cellule A1 par exemple.
Je souhaiterais créer via un boutton une forme automatique (une bulle) contenant le commentaire de la cellule A1.

Jusque là pas de problème, cependant lorsque ce commentaire est trop long, la bulle est juste créée sans le commentaire (alors que si je fais un simple copier/coller du texte dans la bulle, le texte est bien pris).

La taille de la bulle n'a rien à voir avec ce problème, elle est automatiquement calculée pour s'adapter à la longueur du texte.

With ActiveSheet.Shapes.AddShape(msoShapeRectangularCallout, 600, 500, 200, 200)
      .TextFrame.Characters.Text = Commentaire
End With

Si vous avez des idées pour régler ou contourner ce problème, merci d'avance !

Cdlt

 

[tototiti2008]

Re : Insertion texte dans forme automatique

Bonjour donut,

on dirait bien que les bulles sont limitées à 255 caractères...

Edit : ah ben non, ce sont les "insertions" qui semblent limitées à 255 caractères

peut-être comme ça :

Sub test()
commentaire = "Coucou" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10) & "abcdefghijklmnopqrstuvwxyz" & Chr(10)
MsgBox Len(commentaire)
With ActiveSheet.Shapes.AddShape(msoShapeRectangularCallout, 600, 500, 200, 200)
      For i = 1 To (Len(commentaire) \ 200) + 1
      .TextFrame.Characters(1 + (i - 1) * 200).Insert String:=Mid(commentaire, 1 + (i - 1) * 200, 200)
      Next i
End With
End Sub

 

[dONut]

Re : Insertion texte dans forme automatique

Bonjour tototiti2008,

je vous remerci, votre solution marche parfaitement !

Quelle drôle d'idée de limiter l'insertion à 255 caractères alors que la bulle peut en recevoir plus ...

Je vous souhaite une bonne journée.

Cdlt