Office: Grafiken per VBA in Excel zentrieren

Hallo zusammen,
ich bräuchte kurz eure Hilfe. Meine Ausgangslage: Über Dropdownfelder kann ich bestimmte Begriffe auswählen. Dazu passend werden Bilder unterhalb eingefügt. Diese sind jedoch unterschiedlich groß, weshalb ich mehrere Zellen verbunden habe. Soweit funktioniert auch alles. Nur möchte ich die Bilder gerne zentriert haben.
Da ich von VBA recht wenig Ahnung habe, komme ich im Moment nicht weiter. Müsste man beim Teil mit Selection evtl. eine Schleife einbauen, da er Größe und Position des Bildes beim letzten ändert und bei den vorherigen nicht? Wenn ja, wie?
Wär Klasse wenn ihr mir weiterhelfen könntet. Vielen Dank im Voraus.

Gruß Caro


Code:

:)

 

Hi,

weshalb sollen die Bilder zentriert werden? Wäre es nicht besser, ihre Größe an die Zellgröße anzupassen, sodass sie die gesamte Zelle bedecken?

 

Naja, die Bilder haben unterschiedliche Größen. Die würde es ja dann verzerren. Ich habe extra mehrere Zellen verbunden in denen das Bild erscheint

 

Dann müsstest du nach Einfügen jedes einzelnen Bildes die Breite des Bildes von der Breite der verbundenen Zellen subtrahieren und durch 2 dividieren - dann erhältst du den Abstand vom linken Rand der ersten Zelle für das betreffende Bild. Dasselbe müsstest du dann für die Höhe machen.
Wenn du eine Beispielmappe mit 2 oder 3 Bildern hochlädst, könnte ich den Code für diese Bilder schreiben - den Rest kannst du dann einfach entsprechend erweitern.

 

Hier mal ne kleine Beispielmappe. Danke schon mal im voraus für deine Hilfe

 

Weshalb benutzt du das Worksheet_Calculate-Ereignis? Wenn ich dein Vorhaben richtig interpretiere, soll das betreffende Bild doch nur dann eingefügt werden, wenn in Tabelle "Abfrage" in den Gültigkeitszellen etwas ausgewählt wird? Dazu musst du doch nicht jedemal alle Bilder löschen und neu einfügen - das gibt nämlich ein Problem mit dem Poisitionieren, da Excel keine ausreichende Zeit dazu hat. Besser wäre es doch, den Weg andersherum zu gehen - nur das Bild auf den verbundenen Zellen zu löschen und das gewünschte dann dort einzufügen. Oder habe ich dein Ziel falsch verstanden?

 

Ich habe leider relativ wenig (bis gar keine) ahnung von vba und hab mir das ganze aus Vorlagen zusammengebastelt. Ziel ist es, dass das zur Dropdownauswahl zugehörige bild zentriert im Ausgabebereich erscheint. Wie das zustande kommt ist mir egal, hauptsache es funktioniert.*Smilie

 

Hier der auf deine hochgeladene Arbeitsmappe zugeschnittene Code:

Code:

 

Super, vielen Dank. Da hast du mir schon mal erheblich weitergeholfen*Smilie. Aber wie kann ich den Code auf weitere Dropdowns/Bilder anpassen? Könntest du mir vll n bisschen erläutern wie du die einzelnen Sachen ansprichst bzw. wie der Code im einzelnen funktioniert?

 

Der Code prüft zuerst, ob die Zelle eine Gültigkeitszelle ist, in der eine Eingabe erfolgt. Wenn ja, dann wird mit Set rngBereich = ... der Zellbereich 3 Spalten rechts der betreffenden Gültigkeitszelle bis 6 Spalten rechts und 11 Zeilen unter der Gültigkeitszelle auf die Variable geschrieben, sodass man später dann auf diesen Berech zugreifen kann. Danach wird in einer Schleife über alle vorhandenen Bilder gelaufen und geprüft, ob die linke obere Ecke in diesem Bereich liegt - wenn ja, dann Bild löschen und die Suchschleife verlassen.
In der Zeile Set PicBild... wird das Bild mit Namen des ausgewählten Inhalt der Gültigkeitszelle auf die Variable geschrieben - On Error Resume Next ist dabei erforderlich, falls es das Bild nicht gibt. Wenn es das Bild gibt und diese Codezeile keinen Fehler ausgelöst hat, dann dieses Bild kopieren und einfügen und den Zellbereich leeren (falls vorher Text stand).
Mit der Zeile With ActiveSheet.Pictures(ActiveSheet.Pictures.Count) kann man dann auf das zuletzt eingefügte Bild zugreifen und seine Position festlegen.
Falls das Bild nicht vorhanden ist und beim Schreiben auf die Variable picBild einen Fehler ausgelöst hat, dann in den Bereich rngBereich den Text schreiben.

Der Code gilt also für alle Zellen, die eine Gültigkeitsliste enthalten und das Bild wird immer in den Bereich 3 - 6 Spalten rechts und bis 11 Zeilen unterhalb der Gültigkeitszelle mittig angeordnet.

 

Hm, das ist natürlich der eleganteste Weg. Nur sind in meiner Arbeitsmappe die Bereiche in denen das Bild eingefügt werden soll nicht immer gleich groß und ändern wäre echt blöd, da es mir sonst andere makros zerschießt bzw. ich wieder formeln etc ändern muss.

Gibt es eine Möglichkeit die Bereiche, in die Bilder sollen jeweils einzeln zu zuweisen? Und habe ich das richtig verstanden, dass nur die Dropdownlisten angesprochen werden in denen die Bildernamen stehen? (ich hab nämlich noch andere dropdownlisten zu denen keine bilder gehören)

Nochmals vielen Dank, dass du dir die Mühe machst

 

Es wäre besser gewesen, wenn du eine Arbeitsmappe hochgeladen hättest, die den tatsächlichen Bedingungen entspricht - Codes werden in den meisten Fällen ganz konkret für die vorliegenden Bedingungen geschrieben.

- um wie viele Gültigkeitszellen für die Bilder handelt es sich? Welche Zellen sind dies?
- welche verbundenen Zellen gehören zu welchen Gültigkeitszellen?

 

So, ich hab jetzt nochmal ne Arbeitsmappe erstellt, die den exakten Bedingungen entspricht. Je nachdem was in den blauen Dropdownlisten ausgewählt wird erscheint unterhalb in den roten Zellen ein Name.

Die Bilder mit diesem Namen (siehe rote Zellen) sollen in den gelben Bereich unterhalb der zugehörigen Dropdowns eingefügt und zentriert werden. Das ganze brauch ich nur für diese Zellen, sonst nicht. Ach ja, ich habe die exakten Zellenkoordinaten (ab zeile 73) verwendet, also n bisschen runterscrollen*Smilie .

Vielen Dank für die Hilfe.

 

Der Code geht jetzt davon aus, dass die relevanten Gültigkeitszellen mit blassblauer Füllfarbe formatiert sind:

Code:

Beachte bitte unbedingt, dass deine Bilder anders heißen als die Zellinhalte, z.B. Zellinhalt Kartonage_KLT, Bild KLT_Kartonage - so können die Bilder nicht gefunden werden

 

Hallo,

in 'Einstellungen' die DropDown- und BildContainer - Adressen eintragen.