Grafik per VB ein-/ausblenden
08.02.2005 09:40:45
der.dan
Da ich über's Wochenende nicht ins Forum konnte, ist "meine" Diskussion zur Ein-/Ausblendung von Grafiken ein wenig zu weit nach unten gerutscht... :-(
Dumm nur daß ich das Problem immer noch nicht lösen konnte. Daher hoffe ich nochmals auf Hilfe der (VBA-)Experten hier...
Der Urspruchsthread war der folgende: https://www.herber.de/forum/messages/561193.html
Es ging (und geht immer noch) darum bei der Auswahl von zwei verschiedenen OptionButtons zwei Grafiken ein- oder auszublenden.
Damit Ihr nicht wirklich alles lesen müsst, hier der letzte Beitrag zu dem Thema:
"Hallo Bernd.
Entschuldige bitte meine späte Rückmeldung.
Angepasst habe ich den Code ja mittlerweile, nur erhalte ich bei Ausführung folgende Meldung:
"
Laufzeitfehler '-2147024809 (80070057)
Das Element mit dem angegebenen Namen wurde nicht gefunden.
"
Mein Code lautet wie folgt:
"
Private Sub OptionButtonA2_Click()
If OptionButtonA2 = True Then
Worksheets("Montag").Shapes("Bild76").Visible = False
End If
End Sub
"
Wenn ich die Fehlermeldung mit beenden quittiere, erhalte ich folgende Fehlermeldung:
"
Laufzeitfehler '5':
Ungültiger Prozeduraufruf oder ungültiges Argument
"
Nun bin ich vollkommen durcheinander...
mfg, Dan
Bezieht sich auf diese Nachricht:
hallo dan
versuch mal so:
nimm mal folgendes makro mit dem recorder auf.
einfach nur das bild anclicken.
dann kommt sowas raus:
Sub Makro2()
'
' Makro2 Makro
' Makro am 04.02.2005 von B aufgezeichnet
'
'
ActiveSheet.Shapes("Rectangle 4").Select
End Sub
in diesem beispiel wäre "Rectangle 4" der excelinterne name.
für dein blatt kannst worksheets("Tabelle1") schreiben.
also der name der unten auf dem tabellenreiter angezeigt wird.
der code für das ausblenden in diesem beispiel angepasst hieße dann:
Worksheets("Tabelle1").Shapes("Rectangle 4").Visible = False
bernd
"
Wäre super wenn ich hierzu weitere Hilfe bekommen könnte.
mfg, Dan