使用VBa自动调整PowerPoint中的粘贴数据透视表对象中的文本

我正试图自动在PowerPoint中粘贴的数据透视表对象中的文本。 我已成功地将透视表粘贴到PowerPoint中，但无法弄清楚如何更改形状中的字体大小，或者甚至更好地将字体自动适应形状。 这甚至有可能吗？ 这是我试图改变字体..什么都没有工作。

Set ppShape = PPSlide.Shapes(2) With ppShape.TextFrame.TextRange.Font .Size = 16 .Bold = True End With 

我使用PasteSpecial Default来粘贴数据透视表。我想知道这是否与它有关。

 PPSlide.Shapes.PasteSpecial (ppPasteDefault) 

谢谢！