Autres Centrer verticalement et a droite/gauche un texte dans label

[chaelie2015]

Bonsoir forum
Je souhaite Centrer verticalement et a droite un texte dans label et un autre label a gauche
Merci et bonne année

 

[TooFatBoy]

Bonjour,

Je crois qu'il existe une astuce utilisant une image d'un pixel transparent.
Ceci dit, je ne saurais t'en dire plus. Jamais essayé.


[edit]
Lien vers une explication :

Centrer verticalement le texte d'un Label d'un Userform (Excel/word - Vba) - p56

Pour l'esthétique de vos Userform, vous avez besoin parfois d'avoir du texte parfaitement centré dans un label. Si dans Office, la propriété TextAlign des labels permet de positionner le texte à droite, à gauche ou au centre, il n'est pas prévu de centrage...

tatiak.canalblog.com

[/edit]

 

[chaelie2015]

Bonsoir TooFatBoy
Merci pour le lien .
A+

 

[TooFatBoy]

Je viens de tester la méthode expliquée dans le lien de #2, et ça marche super bien pour mettre au centre du Label.

​

Ci-joint, une image d'un pixel transparent. 😉

 

[patricktoulon]

bonjour
il y a une astuce (la même) sans recours a une image externe de 1 pixel
1 soit avec l'image d'un bouton dans une commandbar dynamique
2 soit avec l'image d'un bouton dans une commandbar existante

avec une new commandbar dynamique

centrer verticalement le texte de la caption d'un control Label dans un userform

bonjour a tous cette question vient de ressortir dans le forum j'ai pensé que ca devait etre mis dans les astuces en effet le text dans un label ne peut etre centré qu'horizontalement avec la properties(textalign) il existe une astuce simple qui consiste a mettre une image de 1 pixel (meme...

excel-downloads.com

avec la commandbar existante

'******************************************
'sujet: centrer verticalement le texte de la caption d'un label dans un userform
'       a l'aide d'un bouton dans une commandbarre temporaire et dynamique
'date:10/11/2021
'auteur: patricktoulon sur exceldownloads
'version:2.1 (2021) sans créeation de commandbars mais en utilisant la commandbars (1)
''******************************************

Private Sub CommandButton1_Click()
   Call centrer_le_text(Label1)
End Sub

Sub centrer_le_text(obj As msforms.Label)
    Dim bout As CommandBarControl, shap As Shape
    Set bout = CommandBars(1).Controls.Add(Type:=msoControlButton)
    Set shap = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 1, 1)
    With shap: .Line.Visible = msoFalse: .Fill.Visible = msoFalse: .CopyPicture: .Delete: End With 'copypicture=copie en WMF(garde la transparence)
    bout.PasteFace
    With obj
        .Picture = bout.Picture
        .PicturePosition = fmPicturePositionCenter
        .TextAlign = 2
    End With
    CommandBars(1).Reset
End Sub

ci joint la version avec commandbar existante

 

[job75]

Bonsoir à tous,

Avec un Label dans un Frame on obtient le même résultat :

Private Sub UserForm_Initialize()
With Label1
    .Width = 1000
    .AutoSize = True
    .AutoSize = False
    .Top = (Frame1.Height - .Height) / 2 - 5
    .Left = (Frame1.Width - .Width) / 2
End With
End Sub

A+

 

[chaelie2015]

Bonsoir Forum, TooFatBoy, patricktoulon et Job75
Merci pour les diverses réponses et je vous souhaites une bonne et heureuse année 2023
A+