在 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 粘贴一个枢轴 table...我尝试了以下操作但出现错误：

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

错误是对象 Shape 的方法 Table 失败。谢谢！

Answer 1

更改索引 (j,l)

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

在 PowerPoint 中更改粘贴形状内的字体大小

Change the font size within a pasted shape in PowerPoint

excel

powerpoint

vba