我懂你的困扰：用ppPasteOLEObject粘贴的Excel表格是嵌入OLE对象，本质是一个迷你Excel工作簿，直接修改PPT形状的字体属性根本不会生效——得钻进这个嵌入对象内部去操作才行。下面给你具体的解决方案：

核心思路 #

要修改嵌入表格的字体，必须和内部的Excel对象交互：

1. 激活PPT里的嵌入Excel对象
2. 选中表格的目标区域
3. 直接修改该区域的Excel字体属性
4. 退出Excel编辑模式，回到PPT界面

修改后的完整可运行代码 #

Worksheets("Must Win").Activate
LastRow = Cells(Rows.Count, "L").End(xlUp).Row
Page = Int(((LastRow - 1) / 5) + 0.5)
FIrstRow = 1
' 声明变量用于操作嵌入的Excel对象
Dim embeddedExcelApp As Object
Dim embeddedSheet As Object

For i = 1 To Page
    ' 添加标题仅布局的幻灯片
    Set mySlide = myPresentation.Slides.Add(Pages, 11) '11 = ppLayoutTitleOnly
    Pages = Pages + 1
    
    ' 复制Excel指定区域
    LastRow = i * 5
    Set rng = Worksheets("Must Win").Range("A" & FIrstRow & ":M" & LastRow)
    FIrstRow = LastRow + 1
    rng.Copy
    
    ' 粘贴为OLE对象并调整位置
    mySlide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse
    Set myShape = mySlide.Shapes(mySlide.Shapes.Count)
    myShape.Left = 40
    myShape.Top = 80
    myShape.Height = 400
    myShape.Width = 880
    
    ' --- 重点：修改嵌入表格的字体 ---
    ' 激活嵌入的Excel对象
    myShape.OLEFormat.Activate
    ' 获取当前激活的Excel实例（即嵌入的迷你Excel）
    Set embeddedExcelApp = GetObject(, "Excel.Application")
    Set embeddedSheet = embeddedExcelApp.ActiveSheet
    
    ' 修改字体属性，可按需调整
    embeddedSheet.UsedRange.Font.Name = "微软雅黑" '替换成你需要的字体
    embeddedSheet.UsedRange.Font.Size = 12 '替换成你需要的字号
    embeddedSheet.UsedRange.Font.Bold = False '按需设置粗体
    
    ' 退出Excel编辑模式并释放资源
    embeddedExcelApp.WindowState = xlMinimized '避免弹出独立Excel窗口
    embeddedExcelApp.Quit
    Set embeddedSheet = Nothing
    Set embeddedExcelApp = Nothing
    
    ' 设置幻灯片标题
    mySlide.Shapes(1).TextFrame.TextRange = "Win Targets – Medical (Must Win) "
    mySlide.Shapes(1).TextFrame.TextRange.Font.Size = 20
Next i

关键细节说明 #

• myShape.OLEFormat.Activate：这一步是打开嵌入对象的编辑权限，相当于手动双击表格进入Excel编辑模式
• embeddedSheet.UsedRange：自动识别嵌入表格的实际内容范围，不用硬编码行列，适配不同数据量
• 操作完成后一定要释放Excel对象，避免后台残留Excel进程

测试这段代码后，嵌入表格的字体就会按你设置的样式批量修改，和手动操作的效果完全一致。

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