Office: (Office 2007) Macro: Alle Bilder ausblenden/einblenden

Hajo_Zi · 27. März 2011

Code:

Option Explicit

Sub CommandButton1_Click()
ActiveSheet.Shapes("Picture 2").Visible = Not ActiveSheet.Shapes("Picture 2").Visible
If Not ActiveSheet.Shapes("Picture 2").Visible = True Then
ActiveSheet.Shapes("Picture 21").Visible = False
ActiveSheet.Shapes("Picture 23").Visible = False
End If
End Sub

Private Sub CommandButton2_Click()
ActiveSheet.Shapes("Picture 21").Visible = Not ActiveSheet.Shapes("Picture 21").Visible
If Not ActiveSheet.Shapes("Picture 21").Visible = True Then
ActiveSheet.Shapes("Picture 2").Visible = False
ActiveSheet.Shapes("Picture 23").Visible = False
End If
End Sub

Private Sub CommandButton3_Click()
ActiveSheet.Shapes("Picture 23").Visible = Not ActiveSheet.Shapes("Picture 23").Visible
If Not ActiveSheet.Shapes("Picture 23").Visible = True Then
ActiveSheet.Shapes("Picture 21").Visible = False
ActiveSheet.Shapes("Picture 2").Visible = False
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 27. März 2011

Hi,
Code:

Option Explicit
Dim shaBild As Shape

Sub CommandButton1_Click()
For Each shaBild In ActiveSheet.Shapes
shaBild.Visible = shaBild.Name "Picture 21"
Next shaBild
End Sub

Private Sub CommandButton2_Click()
For Each shaBild In ActiveSheet.Shapes
shaBild.Visible = shaBild.Name "Picture 2"
Next shaBild
End Sub

Private Sub CommandButton3_Click()
For Each shaBild In ActiveSheet.Shapes
shaBild.Visible = shaBild.Name "Picture 23"
Next shaBild
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 27. März 2011

Hi,

mein Code ist nicht ganz korrekt - es wird das betreffende Bild aus- und alle anderen eigneblendet, aber du wolltest es ja genau umgekehrt. Ändere den Code nach folgendem Prinzip:
Code:

Sub CommandButton1_Click()
For Each shaBild In ActiveSheet.Shapes
If shaBild.Type = msoPicture Then shaBild.Visible = shaBild.Name = "Picture 21"
Next shaBild
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

josteiner · 27. März 2011

Hier die Datei zurück. Ich habe den Code, den ich dir empfohlen hatte, eingetragen. Da war zwar noch ein Fehler drin, aber hast du es mit dem Code überhaupt versucht?

Gruß
josteiner

Office: (Office 2007) Macro: Alle Bilder ausblenden/einblenden

Macro: Alle Bilder ausblenden/einblenden

Macro: Alle Bilder ausblenden/einblenden

Macro: Alle Bilder ausblenden/einblenden

Macro: Alle Bilder ausblenden/einblenden - Similar Threads - Macro Bilder ausblenden

Datei in mehreren Ordnern suchen und wenn gefunden öffnen?! Macro / VBA

Macro Fehler Subscript out of Range

SICHERHEITSRISIKO Microsoft hat die Ausführung von Macros blockiert, ...

Macro zum spreichern

Excel Macro durch Sheets springen und informationen sammeln?

Excel Bilder vom Pfad einfügen (macro)

Bilder automatisch einfügen bzw. anzeigen lassen. (macro)