删除字符间距

Question

我正在尝试从 PowerPoint 幻灯片中的所有文本中删除字符间距（即正常，不压缩或扩展）。

我知道以下代码，但找不到合适的 textFrame 对象。

With ActivePresentation 
For Each oSl In .Slides 
For Each oSh In oSl.Shapes 
With oSh If .HasTextFrame 
Then If .TextFrame.HasText 
Then .TextFrame.TextRange.?? = normal

Answer 1

使用 .TextFrame2 而不是 .TextFrame，如下所示：

.TextFrame2.TextRange.Font.Spacing = 0