使用vba删除powerpoint中的字符间距

Question

我将不胜感激任何帮助。我试图从功率点幻灯片中的所有文本中删除字符间距（即需要它是正常的，不是浓缩的或扩展的）。 无法找到执行此操作的代码。我知道以下代码，但找不到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