Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
deeazuzu82 pe Simpatie.ro
 | Femeie
24 ani
Cluj
cauta Barbat
27 - 62 ani |
|
|
TRaP
Moderator
Inregistrat: acum 7 ani
Postari: 858
|
|
Source:(Word-2002
' CHECK PROPERTIES OF ACTIVE WINDOW ON EACH MONITOR
Sub CheckObjectProps()
Dim winActive As Window
Set winActive = ActiveWindow
Debug.Print winActive.WindowState 'open Immediate window (CTRL+G) to see values
'1 = wdWindowStateMaximize, 0 = wdWindowStateNormal, 2 = wdWindowStateMinimize
Debug.Print winActive.Height 'open Immediate window (CTRL+G) to see values
Debug.Print winActive.Width 'open Immediate window (CTRL+G) to see values
Debug.Print winActive.Top 'open Immediate window (CTRL+G) to see values
Debug.Print winActive.Left 'open Immediate window (CTRL+G) to see values
Stop ' open Locals window to inspect more properties of winActive
Set winActive = Nothing
End Sub
Sub ToMonitor()
Dim winActive As Window
Set winActive = ActiveWindow
Application.ScreenUpdating = False
With winActive
.WindowState = wdWindowStateNormal
.Height = 816 'laptop = 507
.Width = 1446 'laptop = 1031
.Top = -237 'laptop = -3
.Left = -1443 'laptop = -3
.WindowState = wdWindowStateMaximize
End With
Application.ScreenUpdating = True
End Sub
Sub ToLaptop()
Dim winActive As Window
Set winActive = ActiveWindow
Application.ScreenUpdating = False
With winActive
.WindowState = wdWindowStateNormal
.Height = 507 'monitor = 816
.Width = 1031 'monitor = 1446
.Top = -3 'monitor = -237
.Left = -3 'monitor = -1443
.WindowState = wdWindowStateMaximize
End With
Application.ScreenUpdating = True
End Sub
|
Modificat de TRaP (acum 6 ani)
|
|
| pus acum 6 ani |
|
|
TRaP
Moderator
Inregistrat: acum 7 ani
Postari: 858
|
|
CheckObjectProps updated with Debug.Print options for easier view of the properties.
|
|
| pus acum 6 ani |
|