我使用这样的东西从 PowerPoint 中的形状中获取文本：
s = ActiveWindow.Selection.SlideRange.Shapes("rec1").TextFrame.TextRange.Text
但是，如果文本在形状内包含粗体、下划线、调整大小（等）文本（仅表示形状内的某些单词或短语），则该.Text属性会将其全部转换为纯文本。
我正在寻找形状的程式化标记（也许是 RTF）。
我看到如果我复制文本（突出显示，右键单击，然后选择 COPY），然后将其粘贴到写字板中，它会保留所有内容。但是，我没有看到可以以编程方式访问的.RTFText属性（或任何类似的东西） 。TextRange
有谁知道如何以编程方式执行此操作（我想是通过 VBA）？
谢谢 -