Alignement vertical au centre d'un label

[Guigui]

hello le forum,

Est il possible de centré verticalement le caption d'un label ?
Horizontalement c ok, avec TextAlign mais verticalement ??

Merci d'avance.

A+
Guillaume

 

[_Thierry]

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

Bon Appétit
@+Thierry

 

[Guigui]

hello thierry

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

merci encore

A+
guillaume