在PowerPoint中将数组中的每个数值存储到VBA中的变量

Sub StoreArrayValues()
    Dim arrNumbers() As Variant
    Dim i As Integer
    
    ' 初始化数组
    arrNumbers = Array(1, 2, 3, 4, 5)
    
    ' 遍历数组并将每个数值存储到变量中
    For i = LBound(arrNumbers) To UBound(arrNumbers)
        Dim currentValue As Variant
        currentValue = arrNumbers(i)
        
        ' 在这里可以对每个数值进行进一步处理或操作
        ' 例如，可以将数值存储到其他变量中或进行计算
        
        ' 输出每个数值到Immediate窗口
        Debug.Print currentValue
    Next i
End Sub