Comment adapter CheckBox et Label

Question

Bonjour a tous, forum bonjour, Windows 10/ Internet Explorer 11.0 Je cherche svp le code VBA pour adapter automatiquement un Label(1) a la longueur de son texte. --Une fois le Label1 adapter a son texte. Je souhaiterai également intégrer et adapter automatiquement le Label(1) a la longueur de mon CheckBox(1) . C'est a dire copier le Label(1) sur le CheckBox(1). Merci pour votre aide, bonne après midi a vous. Cdlt Ray

cs_Le Pivert · Answer

Bonjour,

Tout dépend de la police employée. 

un essai à adapter:

Private Sub UserForm_Initialize()
Label1.Caption = "Comment adapter CheckBox et Label"
 Label1.Width = Len(Label1.Caption) * 5  'nbre caractères x 5
 CheckBox1.Caption = Label1.Caption
 CheckBox1.Width = Label1.Width
End Sub

dudulleray · Answer

Salut CS_Le Pivert

Merci pour ta réponse, c'est sympa,

Pour l'écriture j'utilise en général Arial gras ou pas et Size 10 a 12

Question :  On peux svp faire en sorte d'avoir la longueur Width et Height comme cela ça résoudrai pour l'écriture enfin c'est moi qui le dit, pas gagner LOL

Mais je ferai des essais, merci pour ton aide, bonne fin d'après midi.

Cdlt Ray

dudulleray · Answer

Re 

merci

 j'ai essayer ça agrandi bien le label1 en hauteur mais beaucoup trop grand.

Même punition pour le Checkbox1 bien trop grand 

voila 

Cdlt Ray

dudulleray · Answer

Re 

Même soucis mais ca étale en longueur le label ou le checkbox

Donc ca dépends de l'écriture du control utiliser plus le nombre de mots a écrire

pourtant il me semble avoir vu sur le forum www.developpez.net un bout de code qui faisait se que je souhaite mais je l'ai pas retrouver

je vais chercher encore en espérant que c'est le bon forum hum 

A plus tard et merci

Cdlt Ray

Comment adapter CheckBox et Label

4 réponses

Discussions similaires

Newsletters