vba - 如何使用 VSTO 在 PowerPoint 文本框中设置左边距

Question

我正在使用 VSTO 获取一些用户数据并将其添加到 PowerPoint 演示文稿中。为了使格式看起来正确，我需要能够设置文本框中某些文本的左边距。将有一个初始文本 block ，后面跟着另一个缩进 block 。例如(添加下划线以强调间距):

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Sed vestibulum elementum neque id rhoncus. In fermentum eros nec dolor lobortis sit amet fermentum est consequat. Curabitur eleifend nunc eu odio vehicula ut elementum erat aliquam. Ut adipiscing ipsum sit amet leo pulvinar hendrerit. Cum sociis natoque penatibus et magnis dis parturient montes, nascetur ridiculus mus. Nulla non neque in velit lacinia tempor et a lacus.
___________Cras auctor bibendum urna, a facilisis lacus lacinia non.
___________Nullam at quam a mauris consequat vulputate sed eu sapien.
___________Fusce sed urna nulla, ut sagittis lacus. Pellentesque tortor
___________augue, scelerisque at aliquet a, pretium ac ipsum.

我可以通过在下部文本 block 上设置 Shape.TextFrame.TextRange.IndentLevel = 2 来获得此效果。但是，我无法弄清楚如何以编程方式设置边距的值。有谁知道该怎么做吗？

Answer 1

这是通过 Shape.TextFrame.MarginRight 和 Shape.TextFrame.MarginLeft 等来处理的。