用VBA从Excel中加载Powerpoint数组

Sub LoadArrayToPowerPoint()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim pptSlide As Object
    Dim dataArray() As Variant
    Dim i As Integer
    
    ' 获取PowerPoint应用程序对象
    Set pptApp = CreateObject("PowerPoint.Application")
    
    ' 创建一个新的演示文稿
    Set pptPres = pptApp.Presentations.Add
    
    ' 创建一个新的幻灯片
    Set pptSlide = pptPres.Slides.Add(1, 11) ' 11表示幻灯片布局
    
    ' 从Excel中获取数据数组
    dataArray = Sheets("Sheet1").Range("A1:A10").Value
    
    ' 将数组中的数据逐个添加到幻灯片中
    For i = LBound(dataArray) To UBound(dataArray)
        pptSlide.Shapes(1).TextFrame.TextRange.Text = dataArray(i, 1)
        pptSlide.Duplicate
    Next i
    
    ' 显示PowerPoint应用程序窗口
    pptApp.Visible = True
    
    ' 释放对象
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub