Discussion :

[redstoff]

bonjour

je suis entrain de chercher comment: (2façons de voir mais avec le même but)

- ecrire dans un label avec les lettres orientées à 90°; je ferais donc des saut de ligne

- ecrire normalement dans le label et pouvoir le pivoter sur un coin de 90°

Si quelqu'un à une idée pour ce genre de cas je suis tout oui

Merci

[Philippe Tulliez]

Bonjour,
A ma connaissance, Label n'a pas de propriété permettant de placer le texte verticalement.
Pour

- ecrire dans un label avec les lettres orientées à 90°; je ferais donc des saut de ligne

Voici un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
 Dim Mot As String: Mot = "Noir et blanc"
 Dim Txt As String, x%
 For x = 1 To Len(Mot)
  Txt = Txt & Mid(Mot, x, 1) & vbCrLf
 Next
 With Me.Label2
  .Height = Len(Txt) * 3.5 ' Adapte la hauteur en fonction de la longueur du texte
  .Caption = Txt
 End With
End Sub

[redstoff]

obnjour,

bien vu pour la commande mais j'ai réussi à me l'a faire mais ça ne faisait pas terrible.

je cherche donc une autre solution

[mercatog]

Bonjour
Dans la même visée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
Dim Mot As String
 
Mot = "Un peu de gymnastique sans boucle"
Mot = Join(Split(StrConv(Mot, vbUnicode), Chr(0)), vbCrLf)
With Me.Label2
    .Height = Len(Mot) * 3.5    ' Adapte la hauteur en fonction de la longueur du texte
    .Caption = Mot
End With
End Sub

EDIT
Ou plus simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
Dim Mot As String
 
Mot = "Texte à afficher"
Mot = Replace(StrConv(Mot, vbUnicode), Chr(0), Chr(10))
With Me.Label1
    .Height = Len(Mot) * 5
    .Caption = Mot
End With
End Sub

[redstoff]

bonjour,

Pas mal la commande mais malheureusement le résultat reste le même.

il y a bien quelqu'un qui va savoir obtenir le résultat souhaité.

Mais j'aimerai développer la piste de faire pivoter le label sur un coin.

quelqu'un sait si c'est possible?