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

我正在尝试使用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

---

这是桌子。如果单元格不为空，则此操作正常。但如果单元格为空，则值不会更改。有没有办法做到这一点。

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

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

---

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

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

---

我现在没有时间测试这个，但是如果单元格是空的，添加“虚拟”文本到它，设置一个标志指示cel应该是空的，在它上面运行代码，然后如果设置了标志，再次删除文本。我也在考虑做同样的事，但不知怎么的，它对我不起作用。它现在起作用了。问题解决了。宏完成。谢谢：）我现在没有时间测试这个，但是如果单元格是空的，则向其添加“虚拟”文本，设置标志以指示cel应该是空的，在其上运行代码，然后如果设置了标志，则再次删除文本。我也在考虑这样做，但不知何故，它对我不起作用。它现在起作用了。问题解决了。宏完成。谢谢：）谢谢！键为

.TextFrame2

，

TextFrame

的

段落格式

为只读。谢谢！键为

.TextFrame2

，

TextFrame

的

ParagraphFormat

为只读。