Array an for-Schleife übergeben

[Araxx]

Hallo zusammen,
Ich habe ein kleines Problem. Ich möchte in PowerPoint Textfeldern eine bestimmte Größe und Position über VBA zuweisen. Das klappt auch, einzelnen Textfeldern kann ich so die Position zuweisen. Nun würde ich das gerne für meinen gesamten Foliensatz machen. Allerdings besitzen nur bestimmte Folien diese Textfelder.

Meine Idee war ein Array anzulegen in dem die Folienzahlen stehen in denen das Makro durchgeführt werden soll.  Über eine for-Schleife soll das Makro dann auf diese Folien angewendet werden. Leider will das nicht so laufen wie ich es will. Ich bekomme die Fehlermeldung: Fehler beim kompilieren: Sub oder Function nicht definiert.

Ich nehme an ich übergebe das Array nicht korrekt an die for-Schleife.

Code:

Sub Positionieren()


Dim arr1(2)
arr1(0) = 4
arr1(1) = 6

Dim i As Integer
For i = arr1(0) To arr(1)

With ActivePresentation.Slides(i).Shapes(5)
.Height = 255
.Width = 340
.Left = 70
.Top = 113
End With

With ActivePresentation.Slides(i).Shapes(6)
.Left = 447
.Top = 113
End With


With ActivePresentation.Slides(i).Shapes(7)
.Height = 255
.Width = 340
.Left = 550
.Top = 199
End With

With ActivePresentation.Slides(i).Shapes(8)
.Left = 70
.Top = 386
End With

Next i

End Sub

MfG Araxx