Comboboxdan yazı tipi boyutunu belirlemek?

[Murat_00]

Merhaba arkadaşlar ekli dosyada yapmak istediğim şu 1. comboboxumda yazı tipinin boyutunu belirten rakamlarım var 2. comboboxda da yazı karakterini belirten comboboxum var. comboboxlarda yazı tipini ve karakterini belirttiğimde textboxun içinde var olan yazıların tipi ve boyutu değişssin bunu nnasıl yapabiliriz.
mesala textbox1 e Murat yazdık diyelim combobox1 den 36 puntoyu seçip ve combobox2 den de arial turu seçtiğimizde textboxların hepsinde yazan veriler otomatik olarak o puntoda ve karakterde değişmeli.
Şimdiden ilgilenen tüm hocalarıma ve üstatlarıma teşekkür ederim.

 

[hamitcan]

Private Sub ComboBox1_Change()
TextBox1.Font.Size = ComboBox1.Text
TextBox2.Font.Size = ComboBox1.Text
TextBox3.Font.Size = ComboBox1.Text
End Sub

Private Sub ComboBox2_Change()
TextBox1.Font = ComboBox2.Text
TextBox2.Font = ComboBox2.Text
TextBox3.Font = ComboBox2.Text

End Sub


Private Sub UserForm_Initialize()
ComboBox1.AddItem "12"
ComboBox1.AddItem "16"
ComboBox1.AddItem "24"
ComboBox1.AddItem "28"
ComboBox1.AddItem "36"
ComboBox1.AddItem "40"
ComboBox1.AddItem "48"
ComboBox1.AddItem "60"
ComboBox1.AddItem "72"

ComboBox2.AddItem "Arial Black"
ComboBox2.AddItem "Times Newroman"

End Sub

şeklinde kullanın.

 

[Murat_00]

Hocam Çok teşekkür ederim ellerinize sağlık göndermiş olduğunuz kodlardan yola çıkarak kendi programıma şu şekilde uyarladım vede çalıştı.

bu arada benim 24 adet textboxum var

Private Sub ComboBox1_Change()
On Error Resume Next
For x = 1 To 24
With Controls("TextBox" & x).Font
        .Name = ComboBox2.Text
        .Size = ComboBox1.Text
        .Strikethrough = False
       
    End With
    Next
End Sub

Private Sub ComboBox2_Change()
On Error Resume Next
For x = 1 To 24
With Controls("TextBox" & x).Font
        .Name = ComboBox2.Text
        .Size = ComboBox1.Text
        .Strikethrough = False
       
    End With
    Next
End Sub

Private Sub UserForm_Initialize()
On Error Resume Next

ComboBox1.AddItem "12"
ComboBox1.AddItem "24"
ComboBox1.AddItem "36"
ComboBox1.AddItem "48"
ComboBox1.AddItem "60"
ComboBox1.AddItem "72"

ComboBox2.AddItem "Arial Tur"
ComboBox2.AddItem "Arial Black"
ComboBox2.AddItem "Arial"
ComboBox2.AddItem "Times New Roman"
ComboBox2.AddItem "Comic Sans MS"

TextBox1.TabKeyBehavior = False
TextBox1.EnterKeyBehavior = False
TextBox1.SetFocus

End Sub