Ecriture Verticale das un Label?

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
 

Robert

XLDnaute Barbatruc
Repose en paix
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.
 

IFFIC

XLDnaute Occasionnel
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..!
 

Eric C

XLDnaute Barbatruc
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

  • IFFIC_20060108193745.zip
    7.7 KB · Affichages: 53

IFFIC

XLDnaute Occasionnel
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
 

IFFIC

XLDnaute Occasionnel
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 !! ...???
 

pascal21

XLDnaute Barbatruc
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:
 

Hervé

XLDnaute Barbatruc
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
 

myDearFriend!

XLDnaute Barbatruc
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

  • mDF_LabelFun.zip
    24.4 KB · Affichages: 141

Robert

XLDnaute Barbatruc
Repose en paix
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 !!!
 

IFFIC

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
312 321
Messages
2 087 266
Membres
103 502
dernier inscrit
talebafia