在powerpoint VBA中，如何更改文本框中字体的间距？

Question

你知道VBA中的命令是什么，以便找出一些文本？ 我在互联网上查看并没有找到任何可行的方法。

此“SOMMAIRE”文本框没有间距

这就是我想要的文本框：

字母之间有更多空格

更准确地说，我正在寻找这个确切按钮的VBA代码：

Answer 1

使用形状的.TextFrame2.TextRange.Font.Spacing属性。默认情况下，它可能是0。您可以将其更改为其他值以增加字体间距。

Answer 2

只是想补充说自动字距调整也是一个因素，所以你也想删除它：

'Set character point spacing to zero
.TextFrame2.TextRange.Font.Spacing = 0

'Remove automatic kerning
.TextFrame2.TextRange.Font.Kerning = False

如果选择形状并在HOME功能区的“字体”组中单击右下角的凹槽，然后转到“字符间距”选项卡，则可以手动查看字距调整属性 - 您将看到一个复选框，其中包含此属性已经确定了。