从VBA Excel设置PPT文本的字体

我正在尝试将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`

`pptSlide.Shapes.PasteSpecial数据类型：=ppPasteHTML，链接：=msoFalse'2=pppasteEnhancedMetale
设置myShape=pptSlide.Shapes（pptSlide.Shapes.Count）
如果我的外形高度超过了实际高度，那么
myShape.Table.scale比例换算高度/285
如果结束`

当我这样做的时候，内容的字体会根据形状中文本的数量变大或变小

有人能告诉我，无论内容多少，我是否可以将字体大小固定为“8”

---

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

Powerpoint中包含文本的形状具有自动调整大小的属性：

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

使用此选项，可以使文本保持在中确定的大小

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

---

Powerpoint中包含文本的形状具有“自动调整大小”属性：

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

使用此选项，可以使文本保持在中确定的大小

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