Es ist gar nicht schwer, Bilder in Image- oder Picture- Objekten zu scrollen. Der Trick liegt darin, dass das Bild mittels der Scrollbalken verschoben wird. Dazu werden die Left- und Top-Eigenschaften verwendet.

Nachdem ein Bild in ein Objekt geladen wurde, müssen die Scrollbalken erst mal initialisiert werden, damit sie die richtige Scrollweite anzeigen. Dazu bietet folgender Code die Möglichkeit:

With VScroll1 
  .Max = picBild.Container.Height - picBild.Height 
  .Min = 0 
  .LargeChange = picBild.Container.Height 
  .SmallChange = .LargeChange / 10 
End With
  
With HScroll1 
  .Max = picBild.Container.Width - picBild.Width 
  .Min = 0 
  .LargeChange = picBild.Container.Width 
  .SmallChange = .LargeChange / 10 
End With

Bei diesem Beispiel allerdings muss das Objekt mit dem Bild "picBild" heißen, sonst funktioniert es nicht. Die Scrollbalken sind jetzt initialisiert, haben aber noch keine Funktionalität, weil das Change und/oder Scroll- Ereignis noch keinen Code aufweist. Benutzen Sie hierfür folgenden Code, um das Bild beim Betätigen der Scrollbalken auszurichten:

Private Sub HScroll1_Change() 
  picBild.Left = HScroll1.Value 
End Sub
  
Private Sub VScroll1_Change() 
  picBild.Top = VScroll1.Value 
End Sub

Gegebenfalls können sie hier denselben Code noch mal ins Scroll- Ereignis schreiben, wenn sie wünschen, dass die Bilder direkt während des Verschieben des Scrollbalkens gescrollt werden sollen. Steht der Code nur im Change- Ereignis (wie hier im Beispiel), dann scrollt das Bild erst, wenn Sie die Maustaste auf dem Scrollbalken loslassen