使用VBA将XLSM数据转移到PPTX时修改文本颜色报错求助

你写的shpTable.TextFrame.TextRange.Font.Color = RGB(0, 0, 0)这行代码报错的核心原因是：PowerPoint的表格形状（Shapes.AddTable返回的Shape对象）本身没有顶层的TextFrame属性，表格的文本内容全部存储在每个独立的单元格对应的Shape对象里，你只能逐个访问单元格的TextFrame来修改字体格式。

把报错的那行代码替换为遍历表格所有单元格的代码即可：

' 遍历表格所有行、列的单元格修改字体颜色
Dim rowIdx As Integer, colIdx As Integer
For rowIdx = 1 To shpTable.Table.Rows.Count
    For colIdx = 1 To shpTable.Table.Columns.Count
        shpTable.Table.Cell(rowIdx, colIdx).Shape.TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
        ' 此处可扩展其他统一字体设置，例如：
        ' shpTable.Table.Cell(rowIdx, colIdx).Shape.TextFrame.TextRange.Font.Size = 12
    Next colIdx
Next rowIdx

• 原代码变量声明存在隐式Variant问题：Dim myFile, Fileselected As String写法中，myFile实际为Variant类型，建议修改为Dim myFile As String, Fileselected As String
• 操作PPT对象时不需要调用Select方法，activeSlide.Select、shpTable.Select两行代码可以直接删除，不会影响功能运行，还能提升执行效率。

内容的提问来源于stack exchange，提问作者Drew101