Ajustement d'un texte ds une bulle

[hoob91]

Bonjour,
je souhaite créer une bulle auto-adaptable au texte cad que le format s'adapte au texte comme ds un tableau !
voici la macro pour la bulle :

ActiveDocument.Shapes.AddShape( _
msoShapeLineCallout3NoBorder, 0, 2, 280, 20, Anchor:=Selection.Range).Select


Selection.ShapeRange.TextFrame.TextRange.Select
Selection.Collapse
Selection.Style = ActiveDocument.Styles("Bulle double")
Selection.ShapeRange.Select
Selection.ShapeRange.Adjustments.Item(1) = -0.5969
Selection.ShapeRange.Adjustments.Item(2) = 0.435
Selection.ShapeRange.ScaleWidth 1.88, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.3, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.Height = 20
Selection.ShapeRange.Width = 191
Selection.ShapeRange.Callout.Gap = CentimetersToPoints(0.05)
Selection.ShapeRange.TextFrame.MarginLeft = 5
Selection.ShapeRange.TextFrame.MarginRight = 5
Selection.ShapeRange.TextFrame.MarginTop = 2
Selection.ShapeRange.TextFrame.MarginBottom = 2
:

je souhaite qu'elle s'adapte au texte saisi

Merci de votre aide