Einbindung Bilder
23.11.2012 13:36:38
Herbert
das unterstehende Makro kopiert Bilder aus dem engegebenen Pfad in die jeweils aktive
Zelle nach Excel.
Im angefügten Arbeitsblatt
https://www.herber.de/bbs/user/82747.xls
möchte ich nun mit einer wenn-Formel die Felder der Tabelle 2 (Wettertyp) anhand der Eintragungen in Tabelle 1 (symbol) ausfüllen.
Also wenn symbol in Tabelle 1 = 1 dann Bild in Tabelle 2 =1.jpg usw.
Ich habe zwar schon Hinweise gefunden, bekomme es aber nicht hin
Sub Anzeige()
Sheets("Tabelle").Pictures.Insert("k:\Symbole\1.jpg").Select
Set Zelle = ActiveCell
Set Bild = ActiveSheet.Pictures
With Bild
.Placement = 2
.Left = Zelle.Left
.Top = Zelle.Top
.Width = Zelle.Width
.Height = Zelle.Width
End With
End Sub
Vielen dank
Herbert