使用VBA，吊线文本的左缩进与PowerPoint中第一行的左缩进相同

Question

我正在尝试使演示文稿幻灯片上的吊线保持一致，以使吊线和第一行具有相同的左缩进。

例如，在下面所附的屏幕截图中，我希望单词“ Thousands”，“ surface”和“ activities”在相同的左边距处开始（如幻灯片中蓝色突出显示的部分所示）。因此，任何信息都非常有用。

Answer 1

从您的屏幕截图中，我怀疑原因是段落缩进/第一行缩进。但是，如果是这样，则应该由VBA对其进行修复。 TextFrame2对象是当前版本的PowerPoint中具有更新的段落间距的对象：

  With ActiveWindow.Selection.ShapeRange.TextFrame2.TextRange.Paragraphs(Start:=1, Length:=1).ParagraphFormat
    .FirstLineIndent = -18
    .LeftIndent = 18
  End With