Discussion :

[PPz78]

Bonjour,

Quand le texte est trop long je souhaite l'écrire sur plusieurs lignes dans la TextBox et l'encadrement qui englobe le texte.
Je suis dans le mode édition.
Quand j'enregistre la macro j'obtiens ce que je souhaite, mais si je rejoue l'enregistrement:
- le texte reste sur une ligne
- la largueur de l'encadrement est réduit et n'encadre pas le texte.
voici le code de l'enregistrement :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Macro3()
'
' Macro enregistrée le 10/06/2010 par PPz
'
 
    ActiveWindow.Selection.SlideRange.Shapes.AddLabel(msoTextOrientationHorizontal, 188.375, 279.25, 14.5, 19.25).Select
    ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoFalse
    With ActiveWindow.Selection.TextRange.ParagraphFormat
        .LineRuleWithin = msoTrue
        .SpaceWithin = 1
        .LineRuleBefore = msoTrue
        .SpaceBefore = 0.5
        .LineRuleAfter = msoTrue
        .SpaceAfter = 0
    End With
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start:=1, Length:=0).Select
    With ActiveWindow.Selection.TextRange
        .Text = "Ceci est un texte un peu trop long pour tenir sur une seule ligne"
        With .Font
            .Name = "Arial"
            .Size = 10
            .Bold = msoFalse
            .Italic = msoFalse
            .Underline = msoFalse
            .Shadow = msoFalse
            .Emboss = msoFalse
            .BaselineOffset = 0
            .AutoRotateNumbers = msoFalse
            .Color.SchemeColor = ppForeground
        End With
    End With
    With ActiveWindow.Selection.ShapeRange
        .Line.Weight = 1#
        .Line.Visible = msoTrue
        .Line.Style = msoLineSingle
    End With
    ActiveWindow.Selection.ShapeRange.ScaleWidth 0.4, msoFalse, msoScaleFromTopLeft
End Sub

[Invité]

Bonjour

Regardes du coté de la propriété WordWrap de l'objet TextFrame, avant le TextRange.

Fais le pour la zone de texte.

Philippe