Metin kutusu içine farklı boyutlarda font yazılması ..

[tamer42]

Merhaba,

Aşağıdaki kod ile metin kutusuna yazılan ifadede;

" : " öncesi Bold ve font size:12 " : " sonrası normal ve font size:11 olarak yazılması nasıl sağlanabilir?
ekli görselde olduğu gibi

Teşekkürler,
iyi haftalar.

Dim t As Long
           
t =  Sayfa2.Range("B4").Value

    With Sayfa1.Shapes("TextBox 17")
       .TextFrame.Characters.text = "Teklif No: T22000" & t
    End With

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Dim t As Long
           
    t = Sayfa2.Range("B4").Value

    With Sayfa1.Shapes("TextBox 17")
        .TextFrame.Characters.Text = "Teklif No: T22000" & t
        .TextFrame.Characters(1, Len("Teklif No:")).Font.Bold = True
        .TextFrame.Characters(1, Len("Teklif No:")).Font.Size = 12
        .TextFrame.Characters(Len("Teklif No:") + 1, Len("T22000" & t) + 1).Font.Bold = False
        .TextFrame.Characters(Len("Teklif No:") + 1, Len("T22000" & t) + 1).Font.Size = 11
    End With
End Sub