habe eine Liste und möchte zu dieser Liste Bilder in einer Tabellenspalte einfügen, die dann spä _ ter mit der Datei gespeichert werden sollen. Hatte dazu dieses kleine Makro gefunden, dass genau das machte was ich wollte. Einziger Haken war, dass die Bilder als Verknüpfung eingefügt werden und nicht mit der Datei gespeichert werden.
Sub Bildereinfügen()
enda = Worksheets("Tabelle1").Range("C65536").End(xlUp).Row
For i = 2 To enda
Range("C" & i).Select
filmname = ActiveCell.Value
Range("D" & i).Select
ActiveSheet.Pictures.Insert("C:\Pictures\" & filmname & ".png").Select
On Error Resume Next
Next i
End Sub
Ich habe irgendwo gelesen, dass mit Strg + A und dann Strg + Shift + F9, die Verknüpfungen
durch die Bilder ersetzt werden. Hat aber nicht funktioniert und ich habe in Excel auch _
nirgends eine Möglichkeit gefunden, dass einzustellen.
Jetzt habe ich in diversen Foren gefunden, dass die Funktion Pictures.Insert seit Excel 2010 _
immer nur Verknüpfungen einfügt. Um die Bilder direkt einzufügen müsste man folgendes Makro mit _
_
Shapes.AddPicture verwenden
Sub Bilder_einfügen()
Dim targetRange As Range
Dim pictureShape As Shape
Set targetRange = Range("E2")
Set pictureShape = ActiveSheet.Shapes.AddPicture_
("C:\Pictures\"& filname &".png", False, True, 0, 0, -1, -1)
End Sub
Hier habe ich jetzt das Problem, dass mir nicht klar ist, wie ich das Ganze in eine Schleife _
bekomme und regeln kann, dass mein Bild in einer bestimmten Zelle abgelegt wird. Konkret habe _
_
ich eine Zeile mit 3 beschrifteten Spalten, wobei in der dritten Spalte der Name des Bildes _
steht. In der 4. Spalte soll dann das Bild landen.
Wie kann ich mein erstes Makro mit dem zweiten so kombinieren, dass die Bilder direkt eingefügt _
_
_
werden und nicht nur verknüpft werden.
Vielen Dank für die Hilfe von einem VBA-Neuling, was man sicherlich bei dieser Anfrage merkt.
Viele Grüße
Thomas