在Excel中使用VBA更改粘贴到PP中的对象中的文本字体(在PP中表为表)

Sub ChangeFont()
    Dim slide As Slide
    Dim shape As Shape
    Dim textRange As TextRange
    
    ' 遍历每个幻灯片
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状
        For Each shape In slide.Shapes
            ' 检查形状是否为表格
            If shape.HasTable Then
                ' 遍历表格中的每个单元格
                For Each cell In shape.Table.Range.Cells
                    ' 检查单元格是否包含文本
                    If cell.Shape.HasTextFrame Then
                        ' 获取文本范围
                        Set textRange = cell.Shape.TextFrame.TextRange
                        ' 修改文本字体
                        textRange.Font.Name = "Arial"
                        textRange.Font.Size = 12
                        ' 可以根据需要修改其他字体属性
                    End If
                Next cell
            End If
        Next shape
    Next slide
End Sub