Bilder einfügen
26.01.2022 12:47:40
Vasko
Ich versuche seit ca. 2 Wochen und mit ca. 15 Stunden Zeitaufwand, Bilder per Button aus einemn Ordner mit einer bestimmten Größe, untereinander in eine Spalte einzufügen.
Das beste was ich bis jetzt gefunden hatte, ist das hier und meine Versuche das Makro umzuschreiben, sind Dank meiner Unwissenheit kläglich gescheitert.
Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
xRowIndex = Application.ActiveCell.Row
For lLoop = LBound(PicList) To UBound(PicList)
Set Rng = Cells(xRowIndex, xColIndex)
Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
xRowIndex = xRowIndex + 1
Next
End If
End Sub
Danke schon mal und herzliche Grüße
Vasko