更改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 

T他的錯誤是對象形狀的方法表失敗。謝謝！

Answer 1

變化指數（J，L）

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