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

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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.
Kod:
UserForm3.Label1 = Format(ActiveDocument.PageSetup.PageHeight + ActiveDocument.PageSetup.PageHeight, "0.00")
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Arkadaşlar çözümü şu şekilde bulduk.
Kod:
UserForm3.Label1 = Format(ActiveDocument.PageSetup.PageHeight / 28.4 + 0.03, "0.00")
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Halit bey teşekkür ediyorum, Allah razı olsun, "28.35" kodu tam düzelti.
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Gerçek çözüm varken, yaklaşık çözümlerle uğraşmayın bence ....

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

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,269
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Kolay gelsin ...

.
 
Üst