|
Ich krieg ich einfach nicht auf die Reihe!
So ist es jetzt:
ImportBildName = "C:\Users\Thomas\Desktop\VBA\klein320\" & Range("A10").Value & ".gif" ' Dateiname zusammenstellen
Set rngZiel = Range("J1") ' Zielzelle festlegen
With ActiveSheet.Pictures.Insert(ImportBildName) ' Bild einfügen
Ich möchte doch einfach nur das er mir anstatt in Zelle J1, das in der Image1 auswirft, das kann doch nicht so schwer sein.
Das habe ich versucht:
ImportBildName = "C:\Users\Thomas\Desktop\VBA\klein320\" & Range("A10").Value & ".gif" ' Dateiname zusammenstellen
Image1.picture = Loadpicture ("C:\Users\Thomas\Desktop\VBA\klein320\" & Range("A10").Value & ".gif")
Image1.picture = Loadpicture (ImportBildName)
Beides Funktioniert nicht.
Kannst du mir bitte einmal den Code so schreiben wie ich ihn einsetzen soll....mit den Beschreibungen kann ich nicht so viel Anfangen, dafür bin ich mit dem Programmieren noch nicht so vertraut.
Danke
|