Question

我想知道这是否可行，基本上我想生成一组变量（sh0，sh1，sh2等）。我正在考虑使用数组，但我不能让它工作。这是我的代码：

runFinalization()

运行上面的代码块将生成“需要常量表达式”错误。我知道你不能用这种方式声明变量，我只是想不出其他方法。谢谢。

Answer 1

好的，所以我终于解决了我的问题，所以我想我会回答我自己的问题，作为未来的参考

因此，不是尝试使用Array我使用VB Collections代替，所以我的代码最终运行如下：

Dim sColl As New Collection
Dim shDupe As Shape
Dim i As Integer
Dim f As Shape
Set shDupe = ActiveSelection.Group
sColl.Add shDupe
For i = 1 To 3
    If sBottomLimit = 1 Then
        Set f = sColl(1)
        Set f = f.Duplicate(f.SizeWidth, 0)
    Else
        Set f = sColl(i)
        Set f = f.Duplicate(0, f.SizeHeight * -1)
    End If
    sColl.Add f
Next

从数组中设置变量名称

1 个答案: