设置缩进的自定义值并在Powerpoint VBA中挂起

Question

我正在尝试使用VBA为powerpoint中的表格中的单元格设置缩进和挂起的自定义值。我正在使用下面显示的代码。

tb.Cell(1,1).Shape.TextFrame.Ruler.Levels(1).LeftMargin = 72 * 0.13
tb.Cell(1,1).Shape.TextFrame.Ruler.Levels(1).FirstMargin = 0

这里是表格。如果单元格不为空，这可以正常工作。但如果细胞是空的，则数值不会改变。有没有办法实现这一目标。

Answer 1

您需要为文本设置段落格式，而不是单元格边距。使用这些：

With tb.Cell(1,1).Shape
  ' Before
  .TextFrame2.TextRange.ParagraphFormat.LeftIndent = 72 * 0.13
  ' Hanging
  .TextFrame2.TextRange.ParagraphFormat.FirstLineIndent = 0
End With

您可以按如下方式为每个段落设置不同的内容：

.TextFrame2.TextRange.Paragraphs(lStart, lLength).ParagraphFormat.LeftIndent