как получить разрешение монитора?

[sese]

Господа, не подскажите ли, как в VB/VBA получить текущее разрешение монитора?

Comments

[Караидель]

Screen.Height и Screen.Width

[sese]

Караидель , хм... ругается. При попытке выполнить нижепредставленное выдает "object required".



Sub two()

MsgBox screen.Height & Chr(10) & screen.Width

End Sub

[Караидель]

sese

Я не уверена, что это работает в VBA. В VB6 только что проверила - работает, хотя результат выдаётся не в пикселах, а, кажется, в поинтах, но это можно пересчитать. В VB.NET точно помню, что тоже работает, но надо из класса Screen брать статический объект текущего экрана (кажется, CurrentScreen) и уже из-под него извлекать ширину и высоту.

[sese]

Караидель , пасиб! Правда, я как раз пытаюсь получить разрешение из VBA. Придется пошерстить хелп. И если не рудно, просветите, чем пойнт отличается от пиксела?

[Караидель]

sese

Просто другая система обсчёта монитора. Отношение поинт/пиксел тоже должно водиться в хелпе. А с VBA точно помочь не смогу, я на нём никогда толком не писала...

[pash_ka]

sese

Попробуй так:

Dim z

Application.DisplayFullScreen = True

z = Str(Application.Width) + " x" + Str(Application.Height)

Application.DisplayFullScreen = False

MsgBox z



У меня он, правда, все равно не во весь экран получается, но поиграться и посмотреть при каких разрешениях сколько он дает - можно...

[sese]

pash_ka , , оно действительно некие цифири выдает. Боюсь только, с моим разрешением монитора выдаваемое имеем мало общего

thank you anyway.