|
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
|