Bilder in Tabelle einblenden per Schleife
Mister-B
in einer Tabelle habe ich 21 eingebette Bilder (Image1 - Image21). Wie kann ich diese Bilder mittels VBA ein- u. ausblenden? Ich hab's mit:
Sub ShowTipps()
Dim iCounter As Integer
For iCounter = 1 To 21
Sheets("Tipps2").OLEObjects("Image" & CStr(iCounter)).Object.Picture.visible = True
Next
End Sub
Gruß
Martin