Font Büyütme

1 2
17/10/2018, 09:39

ozanakkaya

Merhaba, kod içerisinde


strCurFontSize = "fs" & lTmp

şeklinde satır var. bunun üzerine


if lTemp <16 then
lTemp = lTemp + 2
end if

şeklinde kod yazarak deneyiniz. Veya

 RTF2HTML = strHTML

kodunun üzerine

    strHTML = Replace(strHTML, "\fs18 ", "\fs24 ")
    strHTML = Replace(strHTML, "\fs16 ", "\fs20 ")

şeklinde kod ekleyerek deneyiniz. Ayrıca Profil Bilgileri sayfsından eksik bilgilerinizi (ofis versiyonu) doldurunuz.
17/10/2018, 11:42

berduş

Yardımınız için teşekkürler Ozan bey ama maalesef "replace"li kod dışındakiler işe yaramadı.  "replace"li kodu biraz değiştirerek - modül içinde işe yaramadı maalesef - tıklama olayına yerleştirip kullanabildim. Son halini yüklüyorum, cevaplanmış sorular bölümüne taşıyabilirsiniz.
1 2