Word'te, Sayfa Boyutunu Label'de Gösterme

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar, görselde de gördüğünüz gibi, Sayfa Yüksekliğini, UserForm'un Label'ine bağlamak istiyorum, Sayfanın Yüksekliği değişkendir, yani, Sayfa Yüksekliğini UserForm'un üzerinde bulunan Label'de görmek istiyoruz, kullandığım kod doğru rakamı vermiyor.

UserForm3.Label1 = Format(ActiveDocument.PageSetup.PageHeight + ActiveDocument.PageSetup.PageHeight, "0.00")

 

[Seyit Tiken]

Arkadaşlar çözümü şu şekilde bulduk.

UserForm3.Label1 = Format(ActiveDocument.PageSetup.PageHeight / 28.4 + 0.03, "0.00")

 

[halit3]

https://forum.mibuso.com/discussion/20456/word-automation-centimeterstopoints

bu sitede yaklaşık bu çözümü bulmuşlar
theWidth := centimeters * 28.35

UserForm3.Label1 = ActiveDocument.PageSetup.PageHeight / 28.35

 

[Seyit Tiken]

Halit bey teşekkür ediyorum, Allah razı olsun, "28.35" kodu tam düzelti.

 

[Haluk]

Gerçek çözüm varken, yaklaşık çözümlerle uğraşmayın bence ....

Sub Test()
    MsgBox Format(Application.PointsToCentimeters(ActiveDocument.PageSetup.PageHeight), "0.00")
End Sub

.

 

[Seyit Tiken]

Haluk abe teşekkür ediyorum, bu tam çözüm oldu, Halit beye de teşekkür ediyoruz, yabancı bir siteden alınmıştı o kod, yabancılar bile tam çözümü bulmamıştı, gurur verici bir şey bu, Allah razı olsun...

 

[Haluk]

Kolay gelsin ...

.