Aligner le texte d'un label

Fermé

al - 29 sept. 2015 à 18:17
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 30 sept. 2015 à 14:27

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

A voir également:

Aligner le texte d'un label
Mettre un texte en majuscule - Guide
Déflouter un texte - Forum Logiciels
Comment retranscrire un entretien audio en texte - Guide
Excel cellule couleur si condition texte - Guide
Texte barré whatsapp - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
30 sept. 2015 à 14:27

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

Discussions similaires

Trouver le mot réellement écrit en lettres capitales PIX

Alignement du texte à gauche et à droite

Formule Excel : "SI" une cellule contient un mot, alors ?

copie de texte

Excel si cellule contient texte alors...

Discussions similaires

Newsletters