Petit souci avec un Label dans un UserForm qui est en AutoSize = True mais qui ne s'ajuste qu'en hauteur.
Il semble qu'il s'ajuste en largeur sur les 6 ou 7 premiers caractères.
D'où la question: existe-t-il une fonction pour déterminer la largeur en points ou pixels d'un texte sans retour à la ligne, même approximative ?'
Sinon je vais essayer d'exploiter cette largeur par défaut en considérant simplement qu'elle contient 6 caractères représentatifs d'un texte quelconque et appliquer le ratio sur la longueur du texte.
Je ne t'avais pas oublié, mais avais une occupation prioritaire (promenade de mon épouse au soleil)
Regarde ce que fait ceci :
- un userform avec un bouton de commande commandbutton1
- un label label1 placé où tu veux et avec les dimensions que tu veuxavec ces propriétés (toutes les 3) : Visible = False AutoSize = True WordWrap = False
et ce code :
VB:
Private Type dimens
largeur As Single
hauteur As Single
End Type
Private Type FLICS
bname As String
bbold As Boolean
bitalic As Boolean
bsize As Integer
End Type
Private Sub CommandButton1_Click()
Dim mon_flic As FLICS, texte As String
With mon_flic
.bname = "Tahoma"
.bitalic = True...
Bonjour jmfmarques,
Maintenant que tu nous a mis l'eau à la bouche, on veut connaître ton frère jumeau et ce qu'il a déposé dans le domaine cité. Et s'il s'appelle ucfoutu, il a vraiment un drôle de nom .