vba - 如何使用 for 循环 vba 更改对象的名称？

Question

我想使用 vba 中的表通过 for 循环导入多张图片，但命名对象有问题。我不知道如何处理它（经验湖）：

Public Table_glob(1) As Variant



Sub Table_glob()
    table(0) = "toto"
    table(1) = "tata"

End Sub



Sub Insert()
    
    Call Table_glob
    
    For i = LBound(table) To UBound(table)
       Set shp_ & table(i) & = ActivePage.Import("C:\Users\antho\Documents\" & table(i) &".png")
    Next i
    
End Sub

我有一条错误消息：“预期：= 在第一个“&”上

标签： vbavisio

Answer 1

Sub Insert()
Dim table(0 To 1) As Variant
Dim shp_table(0 To 1) As Variant

table(0) = "toto"
table(1) = "tata"

For i = LBound(table) To UBound(table)
Set shp_table(i) = ActivePage.Import("C:\Users\antho\Documents\" & table(i) & ".png")
Next i

End Sub