UserForm'da Label'a Yazılan Metin dikey olarak nasıl yazılır.

[gezgin-49]

Sayın üstadlarım userformda kullanacağım labellerin caption özelliğine yazacağım metinlerin userform üzerinde dikey olarak gösterilmesi mümkünmü

 

[İhsan Tank]

Sayın üstadlarım userformda kullanacağım labellerin caption özelliğine yazacağım metinlerin userform üzerinde dikey olarak gösterilmesi mümkünmü

merhaba
userform'un kod bölümüne

Private Sub UserForm_Initialize()
Label1.Caption = "H" & vbLf _
& "O" & vbLf _
& "Ş" & vbLf _
& "" & vbLf _
& "G" & vbLf _
& "E" & vbLf _
& "L" & vbLf _
& "D" & vbLf _
& "İ" & vbLf _
& "N" & vbLf _
& "İ" & vbLf _
& "Z"
End Sub

bu kodu yazınız

 

[gezgin-49]

Sayın Üstadım İhsan Tank, teşekkürler ama benim bu şekilde 30'a yakın label'im var, her birisinin içine uzun metinler girecek onun için her bir label için aynı işlemi yapsam bayağı bir zaman alır, bununla birlikte örnekte verilen kodlarla yapılacak işlem ile excel sayfasında hücrelere yazılan metnin "Hücreleri Biçimlendir>Hizalama>Yönlendirme sekmesi ile uyumlu değil, kodlarla metin yukarıdan aşağıya doğru geliyor, ancak ben aşağıdan yukarıya doğru iki veya üç satırlık bir metin yazacağım için daha kısa bir yol arıyorum.

 

[gezgin-49]

Sayın üstadlarım yardımlarınızı bekliyorum,

 

[gezgin-49]

Arkadaşlar labellere yazılacak metnin dikey olarak yazılması mümkün değilmi? yardımlarınızı bekliyorum.

 

[Nightman]

konuyu yanlış anlamadıysam labele yazılan yazıyı dikey hale getirmek,
bu zaten mümkün şöyle,
labele ne yazarsan yaz labelin boyutunu harf boyutuna getirip dikey olarak uzatmak. yani labelin boyutuyla oynarsan (mause ile) dikey olarak uzat otomatik yazı dikey hale geliyor örnek ekte.

 

[abonem]

zamanım olmadığından kodu yazamayacağım ama şöyle anlatayım...

bir fonksiyon oluşturulabilir.
dikey()
adında string bir değer istenir.
kaç karakter olduğu sayılır.
sonra her string değer dizi olduğu için.
for döngüsüne sokularak.
string ifade = string ifade + "Harf" & vbLf _
olarak işlenir.
Sonra label = string ifade yapılır.

Saygılarımla.