Grafik einfügen
Herbert
Ich habe mir von Hans´ klasse Excel-CD folgenden Code in meine Tabelle eingefügt. Frage: wo müssen die Grafiken liegen? Ist es möglich diese in der Arbeitsmappe zu speichern, oder müssen sie im Verzeichnis auf dem Rechner liegen
Danke für Eure Hilfe
Gruß Herbert
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pct As Object
If Target.Column <> 11 Then Exit Sub
On Error GoTo ErrorHandler
Select Case Application.Caller
Case "Auto"
Set pct = ActiveSheet.Pictures.Insert("Auto.gif")
Case "Motorrad"
Set pct = ActiveSheet.Pictures.Insert("Krad.gif")
Case "Bus"
Set pct = ActiveSheet.Pictures.Insert("Bus.gif")
End Select
End
ErrorHandler:
MsgBox "Grafik ist nicht vorhanden!"
End Sub
Anzeige