在PowerPoint

Question

有谁知道如何更改PowerPoint中粘贴的形状对象中的字体大小？

我能够使用以下内容成功操作形状：

ActivePresentation.Slides(1).Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0)

但是，当我尝试使用以下内容更改字体大小时，出现错误：

ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange.Font.Size = 12

我正在从Excel粘贴数据透视表...我尝试了以下操作，但收到了错误：

Dim oShp As Shape
Dim oTbl As Table
Dim l As Long
Dim j As Long

Set oShp = ActivePresentation.Slides(1).Shapes(1)
Set oTbl = oShp.Table

For l = 1 To oTbl.Columns.Count
For j = 1 To oTbl.Rows.Count

oTbl.Cell(l, j).Shape.TextFrame.TextRange.Font.Size = 16

Next
Next

错误是对象形状的方法表失败。谢谢！

Answer 1

更改指数（j，l）

oTbl.Cell(j, l).Shape.TextFrame.TextRange.Font.Size = 16