|
|
#24
11-12-2013, 06:20 PM
|
||||
|
||||
The display resolution is equally irrelevant, but if you really want to find out:
Code:
Private Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub GetMonitorInfo()
Dim h As Long, w As Long
h = GetSystemMetrics32(1) ' height in pixels
w = GetSystemMetrics32(0) ' width in pixels
MsgBox Format(w, "#,##0") & " wide * " & Format(h, "#,##0") & " high"
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Centering text horizontally in powerpoint | Microsoftenquirer1000 | PowerPoint | 0 | 10-28-2012 03:38 PM |
| How to Center One Line Vertically on Blank Page | SQLUSA | Word | 1 | 08-29-2012 08:14 PM |
| Word doc that scroll horizontally | Golfer4588 | Word | 1 | 03-22-2012 03:55 PM |
 Microsoft Word 2010 - Aligning table horizontally
|
SWEngineer | Word Tables | 4 | 07-20-2011 01:32 AM |
| Labels will only print in center of page | jferr | Word | 0 | 04-02-2010 09:52 AM |
Windows 7 32bit 
Office 2010 32bit
Threaded Mode