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

Hallo!*Smilie

Ich habe zwei Probleme, bei denen ich nicht weiter komme.

(1)Ich habe in einer Excel-Tabelle mehrere Bilder über Macros eingefügt, die über Buttons ein- und ausgeblendet werden. Das geht dann immer über bspw. "Image1.Visible = Not Image1.Visible.

Gibt es ein Macro (VBA-Code), mit dessen Hilfe beim Klicken auf so ein Button ein Bild angezeigt, und dabei alle anderen ausgeblendet werden.

Also so was in der Art wie:

Private Sub CommandButton1_Click()
Image1.Visible = Not Image1.Visible
Image2.Visible = False
Image3.Visible = False

und so weiter uns so fort...
End Sub

Nur dass ich nicht bei jedem Bild extra eintippen muss, dass sie ausgeblendet werden sollen, sodern dass Excel von allein checkt, wie viele Bilder es gibt und die alle ausblendet: also ungefährt Image.(alle außer 1).Visible = False.

(2)Über ein Button möchte ich folgendes steuern:

Wenn ich auf so ein CommandButton(CommandButton1) klicke, muss ein zweiters Button (CommandButton2) und ein Textfeld (TextBox2) eingefügt werden; diese wiederrum sollen wie folgt funktionieren:

CommandButton2_Click()
TextBox1.Visible = Not TextBox1.Visible
End Sub

Ich möchte nun für CommandButton1 das so programmieren, dass immer ein neuer CommandButton (also 2, 3, 4 usw.) eingefügt wird - und diese eingefügten Buttons sollen dann dementsprechend TextBox 2, 3, 4 usw. steuern. Das Problem sind die Nummern, die die Buttons und die Textfelder bezeichnen. Gibt es überhaupt eine Funktion (ein Code), der der sagt: Ein commandButton einfügen und den dann "CommandButton existierend+1" nennen??

Dementsprechend sollen die Buttons nicht nur eingefügt, sondern auch gelöscht werden: also dass man z.B. sagt - der zuletzt eingefügt Button und das dazugehörige Textfeld sollen gelöscht werden.

Ich hoffe, ich habe meine Fragen halbwegs verständlich geschildert und hoffe sehr, dass es eine Lösung dafür gibt..

Im Voraus schon mal vielen Dank!!! *Smilie

:)

 

Hallo Talixel

das mit den Shapes

for each sh in activesheet.shapes
if sh.name"Wie halt dein Bild heißt, welches nicht ausgeblendet werden sollte" then
sh.visible=false
end if
next

das mit den Comandbutton ... ist sicherlich irgendwie mit Klassen machbar,
nur entzieht sich mir der Sinn dahinter.., warum Textboxen einfügen sichtbar /unsichtbar, Excel hat doch so schöne Zellen in denen auch was reingeschrieben werden kann. *wink.gif*

Klassenprogrammierungen findest du in der Forensuche bzw. kannst du dich mal hier Online - Excel Programmierung VBA Makro: Klassen
ein wenig einlesen.

 

Hallo Chris-Kaiser,

danke für die Antwort!

Wahrscheinlich mache ich irgendwas falsch, denn es funktioniert so nicht, wie du vorgeschlagen hast...

Folgendes habe ich ausprobiert:

Private Sub CommandButton1_Click()
For Each sh In ActiveSheet.Shapes
If sh.Image1 Then
sh.Visible = False
End If
Next


End Sub

In der IF-Zeile ist immer ein Fehler, egal ob ich "sh.name" oder "sh." eingebe.

Leider ist mein Wissen über VBA-Codes sehr beschränkt, wie man's sehen kann *Smilie und deswegen komme ich nicht von allein drauf - also SOS! *Smilie

 

Hallo Talixel

Richtig bei sh. ist ein Fehler. Du willst ja den Typ abfragen, das geht mit sh.type. Ändere die Zeile so ab:

Code:

msoPicture ist aus der Aufzählung msoshapetype. Suche danach in der Hilfe, dann bekommst du alle Möglichkeiten für deine Abfrage.

Gruß
josteiner

 

Hallo Josteiner,

vielen Dank für die Antwort, das klappt soweit auch ganz gut. Ich kann die Bilder anzeigen und ausblenden mit
sh.Visible = Not sh.Visible

Aber was ich immer noch nicht rausgefunden habe und was super wichtig wäre:

dass durchs Klicken ein bestimmtes Bild angezeigt wird, während alle anderen ausgeblendet werden. Ist das denn überhaupt möglich?

Danke für eure Geduld *Smilie

 

Klar - du kannst für jedes Bild selektiv bestimmen, ob es aus- oder eingeblendet sein soll.
Wie stellst du dir denn die Funktionalität vor? Wo und wie bestimmst du, welches Bild aus- und welches eingeblendet sein soll?
Sind das Gruppen von Bildern die gleichzeitig gezeigt bzw. nicht gezeigt werden sollen? An und ausschalten durch einen Commandbutton?
Gruß
josteiner

 

Ich habe mehrere Grafiken, jede Grafik wird einem Datum zugeordnet und von einem CommandButton gesteuert.

Ich möchte, dass wenn ich auf den CommandButton von bspw. 1.3.2011 klicke, Grafik 2 eingeblendet wird und alle anderen,die davor evtl eingeblendet waren (bspw. die Grafik vom 1.2.2011) ausgeblendet werden.

Also so was in der Art:

Private Sub CommandButton2_Click()
ActiveSheet.Shapes("Grafik 1").Visible = Not ActiveSheet.Shapes("Grafik 1").Visible
"und gleichzeitig alle außer Grafik 1.visible = flase"
End Sub

 

Du könntest dazu eine allgemeinere Prozedur machen, die als ein Argument den Namen der Grafik bekommt. Etwa so

Code:

Dann kannst du die Aufrufprozeduren der CommandButtons einfach halten, indem du einen Aufruf dieser Prozedur mit dem Namen der einzublendenden Grafik einbaust.

Code:

Gruß
josteiner

 

Hi,

ein bestimmtes Image ein- und alle anderen ausblenden kannst du am einfachsten mit folgendem Code:
Code:

Wenn der Name des Images verscheiden sein kann, musst du ihn als Variable übergeben.

 

Das klappt alles leider nicht... *frown.gif* *frown.gif* *frown.gif*

 

Dann musst du wohl deine Datei zur Verfügung stellen.
Gruß
josteiner

 

nur wenige sehen DEine Datei. Ich würde den Bilder sprechende namen geben z-B. Datum, da Du ja nach Datum ein- und ausblenden willlst.

 

So.. Nun ne ganz abgespeckte Excel-Datei, aber das wird nach demselben Prinzip aussehen *Smilie

Es sind drei Bilder und ich kann die einzeln einblenden/ausblenden. Nochmal mein "Wunsch" *Smilie : wenn ein Bild eingeblendet wird, sollen alle anderen ausgeblendet werden, automatisch so zu sagen.

*Smilie

 

Der Dateiname sollte was mit dem Problem zu tun haben. Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test., Mappe.., Beispiel wird eine vorhandene überschrieben.

 

Ok! *Smilie Hier nochmal!