Width property example

Sub Width_Example()
    Dim iWidth As Integer
    iWidth = ThisDrawing.Application.Width
    MsgBox ("Width (in pixels) is : " & iWidth)
End Sub