Maus-Scroll und Image

Outsider77

Erfahrenes Mitglied
Hallo!
Ich habe in mein Excel-Sheet ein Image eingebaut, welches am linken Rand in der Mitte des Tabellenblattes (Höhe) plaziert ist.
Ich möchte das Script so schreiben, dass beim Scrollen mit Mausrad das Image mitwandert, also sozusagen immer in der Mitte des Sheets bleibt.
Ich hatte es schon in etwa so versucht, aber leider keine Reaktion:
Code:
for i=1 to 400
   if activewindow.smallscroll = i then
   activesheet.shapes("Image1").select
   Selection.ShapeRange.IncrementLeft 0.75
   Selection.ShapeRange.IncrementTop (20+i)
   end if
next i

Hat vielleicht jemand eine Idee, wie ich das hinbekommen kann?
Danke schonmal!
Gruß Outi
 
Zurück