从VBA Excel设置PPT文本的字体

Question

我试图复制excel内容到PPT上，用这个命令

  `pptSlide.Shapes.PasteSpecial DataType:=ppPasteHTML, Link:=msoFalse  '2 = ppPasteEnhancedMetAEile
  Set myShape = pptSlide.Shapes(pptSlide.Shapes.Count)
    If myShape.Height <> ExcRng.Height Then
      myShape.Table.ScaleProportionally ExcRng.Height / 285
      End If`

当我做它设置的内容的字体变得更大或更小，取决于在形状的文字量。

谁能告诉我，我是否可以将字体大小固定为 "8"，而不考虑内容的数量。

因为它不是一个文本区域，只是一个形状。

Answer 1

在Powerpoint中包含文本的形状有Autosize属性。

ActiveWindow.Selection.ShapeRange().TextFrame.Autosize  = ppAutoSizeNone

有了这个属性，你就可以让文字贴在你在

ActiveWindow.Selection.ShapeRange().TextFrame.TextRange.Font.Size