Aligner le texte d'un label Fermé

Question

Bonjour, 
Il s'agit d'un code vb qui pilote un ppt.

Je cherche à ce que le label qui est créé ait son texte aligné à gauche et pas centré (horizontalement) par défaut.
Merci beaucoup pour votre aide,



With presppt
Set Sh1 = .Slides(numsli).Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=35, Top:=235 + taille, Width:=120, Height:=100)
                  With Sh1.TextFrame.TextRange
                  .Text = ajoutref
                        With .Font
                        .Name = "Verdana"
                        .Size = 10
                        .Bold = msoCFalse
                        .Color.RGB = RGB(0, 0, 0)
                        End With
                  End With
End With
NbShpe = presppt.Slides(numsli).Shapes.Count


Configuration: Windows Vista / Chrome 45.0.2454.101

f894009 · Answer

Bonjour,

With presppt
        Set Sh1 = .Slides(numsli).Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=35, Top:=235 + taille, Width:=120, Height:=100)
        With Sh1.TextFrame.TextRange
            .Text = ajoutref
            .ParagraphFormat.Alignment = ppAlignCenter
            With .Font
                .Name = "Verdana"
                .Size = 10
                .Bold = msoCFalse
                .Color.RGB = RGB(0, 0, 0)
            End With
        End With
    End With
    NbShpe = presppt.Slides(numsli).Shapes.Count

Aligner le texte d'un label

1 réponse

Discussions similaires