Office: (Office 2013) Bild zu bestimmten Tagen ausblenden

Hallo Zusammen,

mit dem unten stehenden Code blende ich einen Button nur am 01-04 eines Monats ein.
Ab und zu ,wird der Button aber zu einem Bild umgewandelt.
Mir ist nicht bekannt warum das geschieht.
Nun habe ich den Button selber in ein Bild umgewandelt und im Code anstelle von CommandButton1 den festgelegten NAmen des Bildes eingetragen.
Leider funktioniert das nicht. Fehler ( Methode oder Datenobjekte nicht gefunden)
Ist das mit Objekten nicht möglich ?

Code:

Sub Worksheet_Activate()
Select Case Day(Date)
 Case 1, 2, 3, 4
   Eingaben.Bild_1.Visible = True
 Case Else
   Eingaben.Bild_1.Visible = False
 End Select
End Sub

 

Hi,

hast du es mal so versucht:

Code:

ActiveSheet.Shapes("MeinBild").Visible = True

---

 

Hallo Karin,

danke für die Hilfe.
Funktioniert ohne Probleme.

Code:

Select Case Day(Date)
 Case 1, 2, 3, 4
   ActiveSheet.Shapes("Bild_1").Visible = True
 Case Else
   ActiveSheet.Shapes("Bild_1").Visible = False
 End Select