Şekil içinde satırlarda farklı font

[tamer42]

Kıymetli Hocalarım merhaba,

Sayfa içinde yer alan şekil içine aşağıdaki şekilde 2 satır veri yazdırırken;

şekil içeriğindeki metinin, 1. satırın (sTemp) fontu bold, 2. satırın fontu (msg) light olacak şekilde nasıl düzenleyebiliriz.

With Worksheets("Text").Shapes("yellownotes")
    .TextFrame.Characters.Text = sTemp & " " & vbCrLf & " " & msg
End With

Yardımlarınız için şimdiden teşekkürler,
iyi Çalışmalar dilerim.

 

[volki_112]

Kıymetli Hocalarım merhaba,

Sayfa içinde yer alan şekil içine aşağıdaki şekilde 2 satır veri yazdırırken;

şekil içeriğindeki metinin, 1. satırın (sTemp) fontu bold, 2. satırın fontu (msg) light olacak şekilde nasıl düzenleyebiliriz.

With Worksheets("Text").Shapes("yellownotes")
    .TextFrame.Characters.Text = sTemp & " " & vbCrLf & " " & msg
End With

Yardımlarınız için şimdiden teşekkürler,
iyi Çalışmalar dilerim.

deneyiniz.

With Worksheets("Text").Shapes("yellownotes").TextFrame
    .Characters.Text = sTemp & vbCrLf & msg ' Metni atama
    
    ' İlk satırı kalın yap
    .Characters(1, Len(sTemp)).Font.Bold = True
    
    ' İkinci satırı hafif yap (Light font desteği Excel'de sınırlıdır, Normal olarak ayarlanabilir)
    .Characters(Len(sTemp) + 2, Len(msg)).Font.Bold = False
End With

 

[tamer42]

deneyiniz.

With Worksheets("Text").Shapes("yellownotes").TextFrame
    .Characters.Text = sTemp & vbCrLf & msg ' Metni atama
   
    ' İlk satırı kalın yap
    .Characters(1, Len(sTemp)).Font.Bold = True
   
    ' İkinci satırı hafif yap (Light font desteği Excel'de sınırlıdır, Normal olarak ayarlanabilir)
    .Characters(Len(sTemp) + 2, Len(msg)).Font.Bold = False
End With

Çok teşekkür ederim Hocam ..