Hallo, ich habe folgendes Problem in meinem Excel Makro: ich will eine beliebige anzahl an Labels und Images erstellen und sie anschließend bennenen bzw. Bilder einfügen. dafür habe ich folgenden Code geschirbeen: 

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

strStecker ist ein variabel großes Array, welches in einer anderen Funktion mit Daten gefüllt wird. Offensichtlich hat VBA probleme bei der Auswführung der Zeilen

ActiveSheet.OLEObjects(strImage).Picture = LoadPicture(strBild & strStecker(1, i) & ".JPG")

und

ActiveSheet.OLEObjects(strLabel).Caption = strStecker(0, i + 1)

wenn ich diese auskommentiere läuft das Skript bis zum Ende durch aber ich finde den Fehler nicht

vielen Dank schonmal