Ecriture Verticale das un Label?

  • Initiateur de la discussion Initiateur de la discussion IFFIC
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

IFFIC

XLDnaute Occasionnel
Bonsoir à ceux qui passent par là.
(Et mes meilleurs voeux, si je ne l'ai déjà fait)

Je ne parviens pas à trouver dans les aides,
un truc du genre:

UserForm1.Label1.fmOrientationVertical = true

'Mais que fait donc la Police !!!!!'

Merci d'avance.... Je broutte...:sick:

IFFIC
 
Bonsoir Iffic, bonsoir le forum,

Mêêêê, arrête de brouter !!! Après chaque lettre tapée, va à la ligne à laide de la combinaison de touches [Ctrl] + [Entrée]. Avec l'opion d'alignement centré, tu auras un label écrit en Vertical.
 
Merci Bob..Robert de t'être penché sur ma pâture.

J'fais comment maintenant avec un:

UserForm1.Label1.Caption = UserForm1.TextBox1.Value ??.. Hein!

C'est qui, qui contrôle les 'Alt'?
(Sans parler des entrées.. 😉 .

Bon remarque, je n'ai pas pris le temps de regarder profondément du coté de ton idée.

IFFIC, Petit ver de terre VBAsique
te dit Merci et te souhaite une bonne soirée.

P.S. J'ai encore du Boulot..!
 
Bonsoir le forum
Bonsoir IFFIC, bonsoir Robert

Tiré une fois de plus par les cheveux, tu restreints au max ton Label puis adapte une police ad hoc.

Bonne soirée à toutes & à tous 😉 [file name=IFFIC_20060108193745.zip size=7846]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/IFFIC_20060108193745.zip[/file]
 

Pièces jointes

Bonsoir Eric.

Coté 'Had? 'Add' Ad. oc'... Merci Capitaine!

Premier pas bien utile dans ce que je recherche.

Bon, je n'en suis pas encore à l'enseigne lumineuse écrite à l'horizontale et basculée
le C.. Heu le bord droit en Haut..

Sympa, Eric, je garde...

Bonne fin de WE à toi

IFFIC
 
Finalement, j'trouve pas...

Je n'ai pas eu la chance d'être lu par qui ce genre de mise en forme soit le Dolmen.

Je m'en vais Mégalithos fouiner du coté des
'Menhir' de Carnac just'à coté.
(En Français; 'Pierre debout; ...
A cette heure: IFFIC t'as vu l'heure...?
Dodo...!' ).

Il y a des 'CommandButton' de Labelle qui n'attendent pas...

Merci encore,

et à +

IFFIC

.... C'est qui qu'à dit Non !! ...???
 
salut
aller je te propose du briculage
ex
label1 bonjour tu masque onjour
label2 o
label3 n
etc...
tu les places les uns au dessus des autres et tu as ton label un en entier
j'avais prévenu c'est du bricolage
..... hein!!!.... ok!! je sort! :whistle:
 
bonsoir tout le monde

et en passant par une boucle, non ?


Private Sub TextBox1_Change()
Dim i As Byte

Label1.Caption = ''
For i = 1 To Len(TextBox1)
       
If i = 1 Then
                Label1 = Mid(TextBox1, i, 1)
       
Else
                Label1 = Label1 & vbNewLine & Mid(TextBox1, i, 1)
       
End If
Next i


End Sub


salut
 
Bonsoir IFFIC, Robert, Eric C, jmps, pascal21, Hervé, le Forum,

Juste pour le fun, en trichant, et pour taquiner l'ami José...


Cela dit IFFIC, je te déconseille fortement d'essayer d'insérer ce barbidule dans une application sérieuse...

Cordialement,

I am API ! 😉 [file name=mDF_LabelFun.zip size=24986]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_LabelFun.zip[/file]
 

Pièces jointes

Bonsoir le fil, bonsoir le forum,

I am Api... qu'il nous dit en plus l'animal (plutôt les zanimaux puisqu'il y a aussi le morse. Oui le morse... Ti, ti tiiii, tiiii, ti, ti...)

Tê, je mets mon peignoir et je vais me coucher et je ne refait plus jamais du VBA au moins pendant 9 heures... Non mais vous avez vu ce code de ouf !!!
 
Bonjour à tous.

SUPERBE démonstration.!!!!!!

Moi aussi je me sens tout petit!
Même pas un peu TI 🙂

(En plus que je ne suis pas très grand,
je suis obligé maintenant de monter sur un
tabouret pour atteindre le clavier)

Bien utile cette Macro dans mon cas, car
les Labels se trouvent sur une image technique
où je ne peux faire autrement, faute de place.

Merci Didier, Merci à tous
et bonne fin de journée.

IFFIC
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
671
Retour