Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bilder in Tabelle einblenden per Schleife

Bilder in Tabelle einblenden per Schleife
Mister-B
Hallo,
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
versucht, bekomme aber eine Fehlermeldung
Gruß
Martin

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bilder in Tabelle einblenden per Schleife
05.04.2012 16:51:55
Beverly
Hi Martin,
Sub ImageEinbelnden()
Dim oobBild As OLEObject
For Each oobBild In ActiveSheet.OLEObjects
If oobBild.progID = "Forms.Image.1" Then oobBild.Visible = True
Next oobBild
End Sub



AW: Bilder in Tabelle einblenden per Schleife
05.04.2012 18:19:27
Mister-B
Hallo Beverly,
funktioniert klasse!
Danke
Martin
Anzeige

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige