如何使用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:UsersanthoDocuments" & table(i) &".png")
Next i

End Sub

我有一条错误消息："；预期：="；在第一个"&quot；

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:UsersanthoDocuments" & table(i) & ".png")
Next i
End Sub