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

 

[Jorgen]

Norie: I already have the top rows frozen for other reasons, so this is placed in the left (lower) pane which will scroll.

Rorya: Yes, since catching a scroll seems very complicated and I don't want to mess up Excel, I will try a floating toolbar. And of course I immediately ran into problems. If I need a couple of buttons on it, and place it to the left, how do I get the buttons under each other while still being read left-to-right? Like:
________
| Print |
|_______|
________
| Copy |
|_______|
________
| Change|
|_______|

(forgive the bad graphics)
Thanks,
Jörgen

 

[RoryA]

Try this (adjust macro names as required):

Sub addbar()
    Dim cbr As CommandBar, ctl As CommandBarControl
    Set cbr = CommandBars.Add("Tester", , , True)
    Set ctl = cbr.Controls.Add(msoControlButton, , , , True)
    With ctl
      .Caption = "Print"
      .OnAction = "PrintMacro"
      .Style = msoButtonCaption
   End With
    Set ctl = cbr.Controls.Add(msoControlButton, , , , True)
    With ctl
      .Caption = "Copy"
      .OnAction = "CopyMacro"
      .Style = msoButtonCaption
   End With
    Set ctl = cbr.Controls.Add(msoControlButton, , , , True)
    With ctl
      .Caption = "Change"
      .OnAction = "ChangeMacro"
      .Style = msoButtonCaption
   End With
    With cbr
      .Position = msoBarFloating
      .Height = 100
      .Width = 50
      .visible = True
   End With
End Sub

 

[Richard Schollar]

Here's a thread that Jaafar created a while back which goes some way to providing a Worksheet_OnScroll event:

http://www.mrexcel.com/forum/showthread.php?t=287154

 

[Jorgen]

Rorya: Thanks! My problem seems to be that I docked it to the left side, and then the tool-bar orients itself funny.

Richard: Thanks for the link to Jaafars solution! If I can find the example-file it might be a very workable solution!

//Jörgen