如何将 Excel 上的项目符号格式化为 Powerpoint VBA，以便项目符号仅出现在段落之前答案

【问题标题】：How to format bullets on Excel to Powerpoint VBA so that bullets appear ONLY before pharagraphs如何将 Excel 上的项目符号格式化为 Powerpoint VBA，以便项目符号仅出现在段落之前
【发布时间】：2017-01-13 14:57:19
【问题描述】：

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

问题是，我在一些幻灯片中添加了一个文本框，其中包含来自 excel 的文本，并且我已将其配置为具有项目符号。但我的问题是代码将项目符号设置在文本框的所有行中，即使段落之间有空格也是如此。如何将项目符号设置为仅出现在文本之前，而不出现在空格中？

我使用的代码是：

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 是这样的： ImagePPT

【问题讨论】：

标签： vba excel powerpoint

【解决方案1】：

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

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

【讨论】：

谢谢！你能告诉我你会使用哪个函数或代码吗？（例如，.LoopThrough 或类似的东西）我是 VBA 的新手，所以我不知道所有的代码。另外，我更改了我的代码，而不是创建一个新的文本框，而是在自定义幻灯片布局随附的文本框架中插入文本（我不再使用仅标题布局），但我仍然遇到项目符号问题。谢谢！我将代码编辑为新的