ディスプレイ 
com.sun.star.awt.DisplayAccess サービスから画面のサイズなどを取得できます。
サービスのインスタンス化。
oDisplayAccess = CreateUnoService("com.sun.star.awt.DisplayAccess")
ディスプレイ数
msgbox oDisplayAccess.Count
マルチディスプレイ
msgbox oDisplayAccess.MultiDisplay
ディスプレイ
oDisplay = oDisplayAccess.getByIndex(0)
ディスプレイサイズ com.sun.star.awt.Rectangle
aRect = oDisplay.WorkArea
msgbox aRect.Width & ", " & aRect.Height
画面サイズ
aRect = oDisplay.ScreenArea
msgbox aRect.Width & ", " & aRect.Height
