将文本框对象中的字体更改为小型大写字母 - PowerPoint 2013

Question

我无法在互联网上的任何地方找到如何将文本框的字体更改为小型大写字母。我尝试过多次失败的线路，但无法让它发挥作用。有人可以帮忙吗？

With objPPTTextbox.TextFrame.TextRange
    .Text = "Title"
    .Font.Size = 14
    .Font2.Smallcaps = msoTrue  ---Fails here!---
    .Font.Name = "Calibri"
    .ParagraphFormat.Alignment = 2
End With

Answer 1

这是答案，感谢website

objPPTTextbox.TextFrame2.TextRange.Font.Smallcaps = msoTrue