PowerPoint：循环数组时VBA下标超出范围

Question

我正在尝试使用循环将1d数组拆分为2d数组并在VBA中填充文本框。我得到表中的表（j，i - 4）的错误，下标超出范围： 表（j，i-4）= inputArray（10 *（i - 4 - 1）+（j - 1）） 如果有更好的方法，请告诉我，任何帮助表示赞赏

部分代码位于

之下

For i = 5 to 9 

Dim inputArray As Variant
Dim Table As Variant

inputArray = Array(0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9)

For j = 1 To UBound(inputArray)
    Table = Array(j, i - 4)
    Table(j, i - 4) = inputArray(10 * (i - 4 - 1) + (j - 1))
Next j

Set oPicture = oSl.Shapes.AddTextbox(msoTextOrientationHorizontal, _
        Left:=TBLeft1, Top:=TBTop1, _
        Width:=TBWidth1, Height:=TBHeight1)
    oPicture.TextFrame.TextRange.Text = Table(1, (i - 4))
    With oPicture
    .ZOrder msoBringInFrontOfText
    End With
Set oPicture = oSl.Shapes.AddTextbox(msoTextOrientationHorizontal, _
        Left:=TBLeft2, Top:=TBTop2, _
        Width:=TBWidth2, Height:=TBHeight2)
    oPicture.TextFrame.TextRange.Text = Table(2, (i - 4))
    With oPicture
    .ZOrder msoBringInFrontOfText
    End With

Next i

Answer 1

Table是一个单维数组：

在这一行Table(j, i - 4)上，你正在使用它，好像它是一个多维的。

尝试与此一样小的东西来获得含义：

Option Explicit

Public Sub TestMe()

    Dim i As Long, j As Long
    For i = 5 To 9

        Dim inputArray As Variant
        Dim Table As Variant

        inputArray = Array(0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9)

        For j = 0 To 1
            Table = Array(j, i - 4)
            Table(j) = inputArray(i - 4)
            Debug.Print Table(j)
        Next j
    Next i

End Sub