Alignement vertical au centre d'un label

Bonjour Guigui, le Forum

En effet avec un Control ActiveX Label, il faut ruser à mon avis pour faire afficher du Vertical...

Soit en Mode Design en saisissant les lettres voulues puis '[Enter] + [Shift] (Ctrl à l'air aussi OK)

Soit en Mode Run Time avec un code comme celui-ci :

Private Sub UserForm_Initialize()
Dim Lettre As Variant
    With Me.Label1
    .Caption = ''
    .AutoSize = True
    .TextAlign = fmTextAlignLeft
            For Each Lettre In Array('B', 'O', 'N', 'J', 'O', 'U', 'R')
                .Caption = .Caption & Lettre & Chr(10)
            Next
    End With
End Sub

Cliquez pour agrandir...

Bon Appétit
@+Thierry

hello thierry

Merci pour ta réponse, je vais utiliser la 1ere...

merci encore

A+
guillaume