butona dikey yazı yazmak

[beyaz34]

butona dikey yazı yazmak istiyorum

 

[Ali]

Aklıma böyle bir şey geldi bir deneyin

Private Sub UserForm_Initialize()
Dim Metin As String
Dim byt As Byte

CommandButton5.Caption = "YENİ STOK GİRİŞİ"

For byt = 1 To Len(CommandButton5.Caption)
Metin = Metin & Mid(CommandButton5.Caption, byt, 1) & Chr(13)
Next byt

CommandButton5.Caption = Metin
End Sub

 

[beyaz34]

yazıyı dikey olmadı birde yönlendirme nasıl yaparım fructose arkadasım

 

[beyaz34]

hata veriyor This command stop the debugger olarak

 

[Seyit Tiken]

Bahsettiğiniz "Formlar" üzerindeki düğme ise oluyor.

 

[Ali]

Aslında bu yöntem labeldeki yazıları dikey yapmak için idealdir.

 

[Ali]

Sn beyaz34, CommandButton'un Wordwrap özelliği True yaparakta dikey bir şekildede yazdırabilirsiniz.
Her harften sonra Alt+Enter Tuşuna basarak harflerinizi yazınız.

 

[beyaz34]

tesekkürler :mutlu:

 

[Seyit Tiken]

Alternatif :

Private Sub CommandButton1_Click()
CommandButton1.Caption = "B e y a z 3 4"
End Sub

Not : Butonun şekli dikey dikdörtgen olacak.