H
hoob91
Guest
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
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