Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
© 2001 -
by Thomas Risi