Trap worksheet scrolling?

[Jorgen]

When the user scrolls the worksheet (using a scroll wheel, or the scroll bars) I would like to have a VBA-code triggered, but in Excel 2003 there is no "VBA-event" for scrolling...

Is there any way of trapping that a scroll has happened, even if the selection didn't change?

Thanks!

Jörgen

 

[iliace]

You could possibly find some clever way to work in a ActiveWindow.VisibleRange.Address and watch it for changes - either periodically or when some other event occurs (like Selection_Change).

 

[Jorgen]

Thanks Iliace,
I can see plenty of uses for "ActiveWindow.VisibleRange.Address".

The problem for me is that it is the event I need to catch, because it will not have any change associated with the scrolling. So what I am looking for is to get a code triggered when the scrolling takes place, rather than check every 2 seconds if there has been a scrolling...

Thanks,
//Jörgen

 

[Andrew Poulsom]

Why do you need to capture scrolling? You could hide the scrollbars. Then the user would have to use the Page keys and the Worksheet_SelectionChange event would fire.

 

[Jorgen]

Hi Andrew,
Thanks for answering.
As they scroll down, I want a shape to move within the sheet with the scrolling. So they are allowed to scroll, but I need to know when they do it to trigger the vba for moving the shape.
//Jörgen

 

[Andrew Poulsom]

I think you will have to settle for moving the shape when the selection changes.

 

[RoryA]

You could subclass the workbook window and try and intercept the WM_SCROLL and WM_VSCROLL messages but in my experience this tends to be pretty unstable and often freezes Excel. Can you use a floating toolbar instead?

 

[Norie]

Why not just put the shape at the top of the worksheet and use Window>Freeze panes?

 

[john1]

Hi,
Me too facing the same problem. So can anyone suggest me some new ways to solve this....



------------------------
John




widecircles

 

[RoryA]

Hi,
Me too facing the same problem. So can anyone suggest me some new ways to solve this....

Isn't that what we were doing?