Discussion :

[oamram]

Bonjour,

Je cherche à ajouter dans un shape (peu importe la forme), plusieurs lignes de texte "formaté". Par exemple, la première ligne, je veux la mettre en gras et la seconde en italique. Je n'arrive pas à trouver la technique adéquate.

Ci dessous un début de programme (qui ne fonctionne pas comme souhaité)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub TestShapeTexte()
 
    Dim shpCanvas As Shape
 
    Set shpCanvas = ActiveDocument.Shapes.AddCanvas( _
        Left:=0, Top:=0, Width:=300, Height:=300)
    shpCanvas.WrapFormat.Type = wdWrapInline
 
    With shpCanvas.CanvasItems.AddShape(msoShapeRoundedRectangle, Left:=0, Top:=0, Width:=200, Height:=100)
        .TextFrame.TextRange = "Texte 1"
        .TextFrame.TextRange.Bold = True
        .TextFrame.TextRange = .TextFrame.TextRange & "Texte 2"
        .TextFrame.TextRange.Italic = True
 
    End With
 
End Sub

Merci d'avance pour votre aide.

[Heureux-oli]

Salut,

L'objet TexteFrame contient du texte, mais aussi une collection de paragraphes comme n'importe quelle autre partie du document.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Activedocument.Shapes(1).CanvasItems(1).TextFrame.ContainingRange.Paragraphs(2).Range.Italic  = True

Ce code adresse le second paragraphe contenu dans une zone de texte située dans une zone de dessin.

[oamram]

Merci pour la solution.