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

Question

你知道 VBA 中用来 space 输出一些文本的命令是什么吗？ 我在网上查了一下，没有找到任何有用的东西。

这个"SOMMAIRE"文本框没有间距

这就是我希望文本框的样子：

字母之间还有space

更准确地说，我正在寻找这个确切按钮的 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

字距调整 属性 可以手动查看，如果您 select 形状和主页功能区的字体组中，单击右下角的凹口，然后转到字符间距选项卡- 您会在设置 属性 的地方看到一个复选框。