如何将Excel上的项目符号格式化为Powerpoint VBA，使项目符号仅显示在法老之前

Question

我正在编写VBA代码，以便从Excel VBA启动并创建Power Point演示文稿。

问题是，我用excel中的文本为一些幻灯片添加了一个文本框，并将其配置为具有项目符号。但我的问题是，代码将项目符号设置在文本框的所有行中，即使在pharagraphs之间有空格的情况下也是如此。如何将项目符号设置为仅显示在文本之前，而不显示在空白处？

我使用的代码是：

Set pptSlide = pptPres.Slides.Add(10, ppLayoutCustom)
SlideTitle = "Noticias Relevantes"
pptSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle
pptSlide.Shapes.Title.TextFrame.TextRange.Font.Size = 22
Set pptTextbox = pptSlide.Shapes(1)
pptTextbox.TextFrame.TextRange.Text = ThisWorkbook.Sheets("PPT").Range("B143").Value
pptTextbox.Top = 83
pptTextbox.TextFrame.TextRange.Paragraphs.ParagraphFormat.Alignment = ppAlignJustify

pd：ppt看起来是这样的：图像PPT

Answer 1

您所说的空格实际上是段落。因此，当您将项目符号应用于整个文本框时，所有段落，即使是没有任何文本的段落，也会得到项目符号。

要解决这个问题，您需要循环浏览TextRange中的段落并测试文本的长度。然后，您可以将项目符号应用于具有文本的段落。