Office: Bild einfügen durch Funktion oder Makro.

Hallo Schwarmintelligenz.

Ich bin derzeit bei dem Versuch, einen Automatismus in meine Tabelle einzufügen.

Folgende Situation:

Es handelt sich um 100 Grafiken (PNG), welche sich entweder im selben Ordner wie die Tabellendatei befinden.
(Ich bitte im eine Verlinkung ala "C:..." abzusehen, da die Datei an verschiedenen Speicherstellen zum Einsatz kommt.)

ODER

als "Tabelle 3" im unteren Reiter in einer 10 x 10 Tabelle, jedes Bild in eine eigene Zelle eingefügt wurden.
(Zusammen mit Tabellenkopf wäre dass dann A - K und 1 - 11)



Jetzt möchte ich in "Tabelle" folgende Funktion haben:

Wenn ich in Zelle "B10" das Wort (zur Not geht auch eine Zahl) "Grafik 25" eintrage, dann soll das Wort "Grafik 25" durch die entsprechende Grafik, in der selben Zelle ersetzt werden.

Entweder soll dies direkt nach der Eintragung des jeweiligen Wortes oder durch einen Button geschehen. Je nachdem, was leichter zu schreiben ist.


Ich habe mich auf der Suche durch Makros, Drob down Menüs und Funktionen gewühlt aber bisher nichts gefunden.

Ist mein Vorhaben überhaupt möglich und realisierbar? Ich wäre sehr dankbar, wenn mir jemand helfen könnte.

Vielen Dank.

:)

 

Hi,

meinst du so etwas:

Code:

 

Hallo Beverly und vielen Dank für die schnelle Antwort.


Leider bin ich mit Excel nicht ganz so erfahren, sodass ich diesen Sub nicht verstehe.

Ich erkenne nicht den Verweis zu der Zelle, in der die Grafik eingefügt werden soll oder auf welche Quelle er sich bezieht ( Außer dem Range("A1:K11")) )


Die Zelle "B10" war nur ein Beispiel, es soll sich am Ende um mehrere Zellen handeln, in der man das Schlagwort einträgt und das Makro dieses Wort (oder auch Zahl) in die jeweilige Grafik umwandeln soll.

 

Hi,

der Code wirkt für ALLE Zellen im Bereich A1:K11.

Zu Beginn des Codes wird in einer Schleife über alle im Tabellenblatt vorhandenen Bilder gelaufen und geprüft, ob die Adresse der linken oberen Ecke identisch mit der Zelladresse ist - wenn ja, wird dieses Bild glöscht, damit im nachfolgenden Codeteil das neue Bild eingefügt werden kann.

Im Ordner, in dem die Arbeitsmappe gespeichert ist, wird nach dem Namen des in die betreffende Zelle eingetragenden Bildnamen (+ Endung ".png") gesucht und wenn es vorhanden ist, wird es mi tder linken oberen Ecke auf die Eingabezelle gelegt sowie die Höhe an die Höhe der betreffenden Zelle angepasst. Wird der Zellinhalt gelöscht, wird kein neues Bild eingefügt, ebenso wenn der betreffende Bildname nicht gefunden wird.

 

Hallo Beverly,

vielen Dank für deine Antwort, aber so soll die Tabelle nicht funktionieren, lag aber auch an meiner Beschreibung.

Die Bilder können mehrmals vorkommen. Ich versuche es mal als anders zu erklären:

Es handelt sich bei der Tabelle um eine Ereignistabelle, quasi wie ein Tagebuch in das Ereignisse durch Bilder angezeigt werden.

Die Zellen für den Verlauf sind

AC27, AE27, AG27 etc.

Nun Passiert als erstes ein "Unfall" und das betreffende Bild für Unfalls soll in AC27 eingefügt werden, wenn der Nutzer "Unfall" in die Zelle Einträgt. Das Bild muss aber nicht "Unfall.png" heißen.

Als Zweites Ergebnis kommt der Abschleppwagen, dadurch wird in Zelle AE27 "Abschlepper" eingetragen und es soll dadurch automatisch um Bild für den Abschleppwagen umgewandelt werden.

Und zum Schluss ist der Unfall beseitigt, in Zelle AG27 kommt "Behoben" hinein und es soll wiederum zu dem entsprechenden Bild abgewandelt werden.

Gibt es denn eventuell einen Befehl wie:
Code:

Jede Grafik wurde ja seitens Excel ein Name zugeordnet (Grafik 1 - Grafik 100), kann man irgendwie auf diese verweisen als Eintrag für die Zelle?