• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

butona dikey yazı yazmak

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

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
 
yazıyı dikey olmadı birde yönlendirme nasıl yaparım fructose arkadasım
 
hata veriyor This command stop the debugger olarak
 
Bahsettiğiniz "Formlar" üzerindeki düğme ise oluyor.
 
Aslında bu yöntem labeldeki yazıları dikey yapmak için idealdir.
 
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.
 
Alternatif :

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

Not : Butonun şekli dikey dikdörtgen olacak.
 
Geri
Üst