• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

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

Katılım
22 Ağustos 2005
Mesajlar
3,750
Beğeniler
4
Excel Vers. ve Dili
Excel : 2010
#1
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")
 
Katılım
22 Ağustos 2005
Mesajlar
3,750
Beğeniler
4
Excel Vers. ve Dili
Excel : 2010
#2
Arkadaşlar çözümü şu şekilde bulduk.
Kod:
UserForm3.Label1 = Format(ActiveDocument.PageSetup.PageHeight / 28.4 + 0.03, "0.00")
 
Katılım
22 Ağustos 2005
Mesajlar
3,750
Beğeniler
4
Excel Vers. ve Dili
Excel : 2010
#4
Halit bey teşekkür ediyorum, Allah razı olsun, "28.35" kodu tam düzelti.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,690
Beğeniler
311
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#5
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
.
 
Katılım
22 Ağustos 2005
Mesajlar
3,750
Beğeniler
4
Excel Vers. ve Dili
Excel : 2010
#6
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,690
Beğeniler
311
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#7
Kolay gelsin ...

.
 
Üst