Public Sub BilderEinfügen()
Dim strLabel As String
Dim strImage As String
xlBlatt3.Activate
For i = 0 To UBound(strStecker, 2)
If strStecker(0, i) > "" Then
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:=20, Top:=40, Width:=72, Height:=72 _
).Select
strImage = "Image" & (i + 1)
ActiveSheet.OLEObjects(strImage).Picture = LoadPicture(strBild & strStecker(1, i) & ".JPG")
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
DisplayAsIcon:=False, Left:=20, Top:=112, Width:=72, Height:=18). _
Select
strLabel = "Label" & (i + 1)
ActiveSheet.OLEObjects(strLabel).Caption = strStecker(0, i + 1)
xlBlatt3.Shapes.Range(Array(strLabel, strImage)).Select
Selection.ShapeRange.Group.Select
End If
Next
End Sub