在PowerPoint(Office365) VBA中更改单元格值的代码

Sub ChangeCellValue()
    Dim ppt As PowerPoint.Application
    Dim slide As PowerPoint.slide
    Dim shape As PowerPoint.Shape
    Dim table As PowerPoint.Table
    Dim row As PowerPoint.Row
    Dim cell As PowerPoint.Cell
    
    ' 获取正在运行的 PowerPoint 实例
    Set ppt = GetObject(, "PowerPoint.Application")
    
    ' 获取当前活动幻灯片
    Set slide = ppt.ActivePresentation.Slides(ppt.ActiveWindow.View.Slide.SlideIndex)
    
    ' 获取指定名称的形状
    Set shape = slide.Shapes("Table 1") ' 表格的名称可以根据实际情况进行修改
    
    ' 确保选择的形状是表格
    If shape.HasTable Then
        Set table = shape.Table
        
        ' 获取第一行的单元格
        Set row = table.Rows(1)
        
        ' 获取第一行第一列的单元格
        Set cell = row.Cells(1)
        
        ' 设置单元格的值
        cell.Shape.TextFrame.TextRange.Text = "新的值"
    End If
    
    ' 释放对象
    Set cell = Nothing
    Set row = Nothing
    Set table = Nothing
    Set shape = Nothing
    Set slide = Nothing
    Set ppt = Nothing
End Sub