时间戳

首页 > 解决方案 > VBA Powerpoint中的数组图像控制循环

vba - VBA Powerpoint中的数组图像控制循环

问题描述

在 PowerPoint VBA 中，
我尝试将 10 个图像命名为

image1
image2
image3
etc.

在一系列图像控件中。
所以我想做这样的事情：

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

但到目前为止它还行不通。

标签： vbapowerpoint

解决方案

假设您将 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

推荐阅读