Цикл управления изображением массива в VBA Powerpoint

Question

В PowerPoint VBA
я пытаюсь поместить 10 изображений с именем

image1
image2
image3
etc.

в массив элементов управления изображениями.
Поэтому я хочу сделать что-то вроде этого:

for i=1 to 10
    Set Image(i).Picture = LoadPicture(sPath & "\kkk\" & i & ".jpg")
next i

Но пока это не работает.

Answer 1

Предполагается, что вы загружаете 10 изображений в пользовательскую форму Изображения с именем "Image#", ниже должно работать нормально.

Option Explicit

Private Sub UserForm_Initialize()
    Dim i As Long
    For i = 1 To 10
        With Me.Controls("Image" & i)
            Set .Picture = LoadPicture(sPath & "\kkk\" & i & ".jpg")
        End With
    Next i
End Sub