Thomas Risi Softwareentwicklung

Bild in Zelle einfügen

Aus einer Frage in einem Forum ...

Es soll überprüft werden, ob eine Zelle mit einem bestimmten Namen bereits existiert. Wenn ja, soll in diese Zelle ein Bild eingefügt werden.

Option Explicit Sub Test() On Error Resume Next Dim rng As Excel.Range: Set rng = Names("Meine_Zelle").RefersToRange If Not rng Is Nothing Then rng.Select ActiveSheet.Pictures.Insert ( _ "C:\Dokumente und Einstellungen\TR\Eigene Dateien\Downloads\Eigene Bilder\Smilies\gaehnen.gif") End If End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)