|
Hallo lieber Helfer,
vielen Dank für die ausführliche Erläuterung, aber sorry - ich verstehe gar nichts. Ich habe nur kleinste Grundkenntnisse in Programmierung. Das Excel-Dokument habe ich aus alten Beständen übernommen und es gerade noch geschafft, ein paar Zeilen oder Spalten hinzuzufügen, die Formatierung anzupassen etc. - aber Funktionen mit den richtigen Parametern aufrufen klappt auch nach stundenlangem Probieren nicht.
Ich habe zunächst an der von Dir genannten Position die "Public Function CreatePictureAtCellPos(..." eingefügt und darunter den Sub in der ursprünglichen Form, wobei ich nicht erkenne was ich dort anpassen muss:
Sub Example()
Dim shp As Shape
Dim strFilename As String
With Worksheets("Daten")
strFilename = "c:\Bilder\" & .Cells(i, "J").Value & ".jpg"
Set shp = CreatePictureAtCellPos(strFilename, .Range(3, "C"), 100, 100)
'...
End With
End Sub
An der Stelle wo die Zelle ausgewählt ist, wo das Bild hinein soll, habe ich folgendes eingefügt:
Call CreatePictureAtCellPos
Was ich hier noch in Klammern einsetzen muss weiß ich nicht.
Falls es für Dich ein Leichtes ist, würde ich mich sehr über erneute Hilfe freuen.
Viele Grüße
Martin
|