ich möchte in eine Excel-Tabelle per Funktion mehrere Bilder einfügen. Dabei möchte ich die einzufügenden Bilder inklusive Pfad in die Tabelle eintragen, die Funktion soll dann das Bild einfügen.
Beispiel:
In A1 steht c:\Bilder\Ball.gif
in eine andere Zelle möchte ich dann die Funktion =ZeigeBild(A1) eintragen und als Ergebnis das Bild sehen.
Die Funktion sieht z.Zt. so aus:
Function ZeigeBild(ByVal BildQuelle As Range) As Object
MsgBox BildQuelle.Value
ZeigeBild = ActiveSheet.Pictures.Insert(BildQuelle.Value).Select
End Function
Die MsgBox zeigt mir auch den Eintrag aus BildQuelle an, als Ergebnis in sehe ich immer nur #WERT!
Als Makro funktioniert das, kann ich aber nicht verwenden, da die Bilder an unterschiedlichen Stellen in der Tabelle stehen sollen, in der Tabelle auch noch andere Einträge stehen und ich deshalb keine Schleife verwenden kann.
Was also ist an der Funktion falsch?
Ich hoffe auf Hilfe und bedanke mich schon mal
Michael