Redimensionner un label _ vba

medestrac -  
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Sous Excel, je crée un label en utilisant "aligner sur la grille" pour qu'il couvre exactement une cellule. Je lui passe en propriété "bouger et redimensionner avec les cellules", pour être sûr que quoique fasse l'utilisateur, mon label couvrira toujours entièrement la cellule.
Le texte du label est défini lors du worksheet_activate. Jusque là, tout va bien.

J'essaie: je sélectionne ma feuille, le label prend bien le texte qu'il est sensé prendre.

J'agrandi la colonne...et là le texte devient tout déformé. Pourtant, la propriété caption du label m'indique toujours qu'il est en arial 12. Plus étrange encore, quand je clique sur le label, le texte reprend son apparence normal tant que le bouton de ma souris est appuyé, puis redvient déformé dès que je le relâche. Quelqu'un sait pourquoi et comment faire pour que le texte reste en arial 12 même si le label est redimensionné?

merci

A voir également:

1 réponse

eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
Bonjour,

Plutôt que 'aligner sur la grille' (qui fait un zoom déformant) adapte les dimensions du contrôle en fonction de la taille de la cellule.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Label2.Top = [D6].Top 
    Label2.Left = [D6].Left 
    Label2.Width = [D6].Width 
    Label2.Height = [D6].Height 
End Sub
Si l'utilisateur change la taille, dès qu'il va sélectionner une autre cellule le contrôle s'adaptera à la nouvelle taille.
https://www.cjoint.com/?BFwnUJu2GsR

eric
0