Yazı tipi boyutu KTF

[izcik]

Merhabalar

Aşağıdaki sürekli kullandığım yazı tipi stilinin KTF kodlarıdır

Function Fontstili(cell)
Application.Volatile
Fontstili = cell.Font.FontStyle
End Function
....

Aynı şekilde yazı tipi boyutunun KTF kodlarını alabilir miyim?

(Tahminen şöyledir diye yapmaya çalıştım ama, olmadı)

Function Fontsize(cell)
Application.Volatile
Fontsize = cell.Font.FontSize
End Function

 

[Korhan Ayhan]

Böyle deneyiniz.

MsgBox Cells.Font.Size

 

[Merhum İdris SERDAR]

.

Böyle bir şey mi?

Function fontbilgisi(cell As Range) As String

  fontbilgisi = cell.Font.Name & " / " & cell.Font.Size
  If Left(cell.Font.FontStyle, 7) = "Regular" Then
     fontbilgisi = Trim(fontinfo & Mid(cell.Font.FontStyle, 8, 100))
  Else
     fontbilgisi = Trim(fontbilgisi & " " & cell.Font.FontStyle)
  End If
 
End Function

.

 

[Merhum İdris SERDAR]

.

Veya sadece font büyüklüğü için

Function Fontsize(cell)
Application.Volatile
Fontsize = cell.Font.Size
End Function

.

 

[izcik]

.

Veya sadece font büyüklüğü için

Function Fontsize(cell)
Application.Volatile
Fontsize = cell.Font.Size
End Function

.

Sayın uzmanlarım hepsini hemen deneyeceğim
Fakat Sayın İdris Serdar uzmanımın son mesajındaki kodlar benim istediğim gibiydi.

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı da inceleyebilirsiniz.

Hücre-Font-Dolgu-Biçim-KTF – Excel Gurusu

.

 

[izcik]

Sayın uzmanlarım teşekkür ediyorum
İdris Serdar uzmanımın kodları tam olarak istediğimdi.

 

[izcik]

.

Böyle bir şey mi?

Function fontbilgisi(cell As Range) As String

  fontbilgisi = cell.Font.Name & " / " & cell.Font.Size
  If Left(cell.Font.FontStyle, 7) = "Regular" Then
     fontbilgisi = Trim(fontinfo & Mid(cell.Font.FontStyle, 8, 100))
  Else
     fontbilgisi = Trim(fontbilgisi & " " & cell.Font.FontStyle)
  End If

End Function

.

Uzmanım çok güzel bir kod. Bütün font bilgilerini veriyor