LABEL'e girilen yazı dik yazılabilirmi

[sirkülasyon]

Abilerim
Labele yazılan yazıları dik olarak yazmam için sol taraftaki propertisten hangisi ile ayarlamam gerekirki dik yazsın

 

[Murat OSMA]

Evet yapılabilir. Sitede bununla ilgili birkaç örnek olması gerek...

Örnek: http://www.excel.web.tr/f48/userformda-labela-yazylan-metin-dikey-olarak-nasyl-yazylyr-t101286.html

Private Sub CommandButton1_Click()
Dim i As Integer, metin As String
metin = InputBox("Ne yazalım", "Www","Www")
    With Label1
        For i = 1 To Len(metin)
            .Caption = .Caption & Mid(metin, i, 1) & vbCr
        Next i
            .AutoSize = True
    End With
End Sub

Ya da;

Private Sub CommandButton1_Click()
Dim i As Integer, metin, deg As String
metin = InputBox("Ne yazalım", "Www", "Www")
For i = 1 To Len(metin)
    deg = Mid(metin, i, 1) & vbCrLf & deg
Next i
Label1.Caption = deg
Label1.AutoSize = True
End Sub

Ya da;

Private Sub CommandButton1_Click()
Label1.Caption = "Emre"
Label2.AutoSize = True
Label2.Caption = "e" & Chr(13) & "x" & Chr(13) & "c" & Chr(13) & "e" & Chr(13) & "l" & Chr(13) & "v" & Chr(13) & "b" & Chr(13) & "a" & Chr(13) & "." & Chr(13) & "n" & Chr(13) & "e" & Chr(13) & "t"
End Sub

Ya da resimdeki gibi istediğiniz açıda yazdırabilirsiniz;

 

[sirkülasyon]

Murat Abi Sağolasın

 

[Murat OSMA]

Siz de sağolun. İyi günler...