![]() |
#1
|
|||
|
|||
![]() Hi, i Know how can i get the ZOOM and SCROLL of Active window: By Using the following code Code:
With ActiveWindow RowScr = .ScrollRow ColScr = .ScrollColumn WinZom = .Zoom End With |
#2
|
|||
|
|||
![]()
Hi
hm, difficult, maybe with some magic API, but you also can do it by using a workaround: Code:
Sub Workaround() Dim RowScr As Long Dim ColScr As Long Dim Winzom As Long Application.ScreenUpdating = False Sheets(2).Activate With ActiveWindow RowScr = .ScrollRow ColScr = .ScrollColumn Winzom = .Zoom End With Sheets(1).Activate Application.ScreenUpdating = True MsgBox "RowScr: " & RowScr & vbCrLf _ & "ColScr: " & ColScr & vbCrLf _ & "WinZom: " & Winzom End Sub |
#3
|
|||
|
|||
![]()
thank you very much Whatsup
your try it acceptable but, can i get the window informations from inactive sheet without activating it? Thanks |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
codeghi | Project | 1 | 05-05-2014 06:59 AM |
New Contact Group Icon is Gray - Inactive | kdfrancis | Outlook | 0 | 04-09-2014 10:53 AM |
![]() |
BobBridges | Excel Programming | 4 | 09-30-2013 02:03 PM |
Page does not actively scroll with click, hold and drag on scroll-bar | jbax | Word | 1 | 05-09-2013 07:16 PM |
Options Buttons become inactive | clint | Word | 0 | 02-25-2010 04:31 PM |