Das folgende Makro fügt abhängig vom Inhalt der Zelle A1 eine Grafik ab der Zelle D1 ein. Steht in A1 die Ziffer 1, so wird die Grafik excel1.gif angezeigt. In jedem anderen Fall, wird die Grafik excel2.gif angezeigt.
Ich möchte mit diesem Makro demonstrieren, dass Grafiken, abhängig von z. B. einer Produktnummer in Excel angezeigt werden können.
Sub grafik_einfügen()
'Anzeige Bild 1, wenn in Zelle A1 der Wert 1 steht
If ActiveSheet.Range("a1").Value = 1 Then
Range("d1").Select
ActiveSheet.Pictures.Insert("C:\bilder\excel1.gif").Select
'Anzeige Bild 2, wenn in der Zelle A1 ein anderer Wert als 1 steht
Else
Range("d1").Select
ActiveSheet.Pictures.Insert("C:\bilder\excel2.gif").Select
End If
End Sub
Über die Anweisung 'Select Case' können beliebig viele Nummern zur Auswahl von beliebigen Grafiken angegeben werden. Die Anweisung Select Case möchte ich an dieser Stelle nicht näher erläutern.