Visual studio 2010 VBA命令自动调整TextFrame2中的文本大小

我有以下代码片段，可以将幻灯片添加到Microsoft PowerPoint演示文稿的结尾并指定标题/副标题：

longSlideCount = ActivePresentation.Slides.Count

With ActivePresentation.Slides
    Set slideObject = .Add(longSlideCount + 1, ppLayoutTitle)
End With

' ------------------------------ make the main title ------------------------------------- '

slideObject.Shapes(1).TextFrame.TextRange.Text = "This is the Main Title Text"
slideObject.Shapes(2).TextFrame.TextRange.Text = "This is the SubTitle Text"

---

是否可以缩小/扩大标题字符串中的文本，使其适合文本框中的一行？

使用

.Textframe2.Autosize=msoautosizettextofitshape

您是否尝试录制宏并遍历代码，试图找出负责文本修改的行？这是一个很好的建议，不幸的是，我只有PowerPoint 2010，据我所知，它不允许宏录制：(