Bilder mit Makro auf Arbeitsblättern einblenden
10.04.2016 18:03:33
Stefan
Ich habe 4 Bilder, diese werden per Makro ein- und ausgeblendet.
Jetzt habe ich aber mehrere Arbeitsblätter, und ich möchte dass auch auf den anderen Arbeitsblättern wenn ich das Makro ausführe, die Bilder direkt im aktiven Tabellenblatt angezeigt werden.
In dem Blatt names "Kalendertage" funktioniert es einwandfrei. Jetzt hab ich aber noch ein Blatt "5-Tage" "6-Tage" und "7-Tage".
Mit meinem jetzigen Code, der natürlich sehr einfach gestaltet und sicher verbessert werden kann, kommt dann leider eine Fehlermeldung, wenn ich den Code zb. im "5-Tage" Arbeitsblatt ausführen will. Da er die Bilder nicht findet.
Ich könnte jetzt zwar die gleichen Bildern noch auf die anderen Blätter einfügen und mit dem Code ergänzen, aber dann wird die Datei zu groß, was ich vermeiden möchte, weil es ja auch immer die gleichen Bilder sind.
Der Code würde dann noch 2 mal nach dem gleichen Prinzip weitergehen.
Sub ZeigeTeil_2016_1()
' ZeigeTeil1 Makro
ActiveSheet.Shapes.Range(Array("Grafik 11")).Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Grafik 13")).Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Grafik 14")).Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Grafik 10")).Visible = Not ActiveSheet.Shapes.Range(Array(" _
_
Grafik 10")).Visible
End Sub
Sub ZeigeTeil_2016_2()
'
' ZeigeTeil2 Makro
'
'
ActiveSheet.Shapes.Range(Array("Grafik 10")).Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Grafik 13")).Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Grafik 14")).Visible = msoFalse
ActiveSheet.Shapes.Range(Array("Grafik 11")).Visible = Not ActiveSheet.Shapes.Range(Array(" _
Grafik 11")).Visible
End Sub