Shape mee laten bewegen

[geep1980]

Ik ben voor mijn werk bezig om een excel sheet in elkaar te zetten.
Hierin wil ik een shape gebruiken waar ik een macro aan koppel.
Echter wil ik dat de shape mee scrolled naar beneden als je in het tabblad naar beneden scrolled.

Ik heb al gezocht met google maar kwam er zo snel niet uit of ik snapte niet wat er werd aangegeven.
Kan iemand mij helpen.

 

[Warme bakkertje]

Zie bijlage

 

[geep1980]

ziet er netjes uit maar was meer opzoek naar iets wat zonder klikken werkt.

ben een beetje aan het stoeien geweest en heb een macro gevonden die iedere 5 seconden wordt uitgevoerd:

Sub ButtonCode()

' execute macros
Call Example

' submit macro to run again in 5 min
Application.OnTime Now + TimeValue("00:00:05"), "ButtonCode"

End Sub

Deze wil ik nadat het tabblad waar ik op wil scrollen is aangemaakt aanroepen.

Hieronder Example:

Sub Example()
CenterShape ActiveSheet.Shapes(1)
End Sub

Public Sub CenterShape(o As Shape)
o.Left = ActiveWindow.VisibleRange(1).Left + (ActiveWindow.VisibleRange.Width / 1 - o.Width / 0.5)
o.Top = ActiveWindow.VisibleRange(1).Top + (ActiveWindow.VisibleRange.Height / 2 - o.Height / 2)
End Sub


Hij zet nu wel netjes de shape in het midden van het scherm maar na 5 seconden krijg ik de volgende foutmelding:

cannot run the marco Buttoncode. The macro may not be available in this workbook or all macros may be disabled

Ik gebruik de Engels talige 2007 versie.
Het bestand wat ik gebruik is opgeslagen als .xlsm