Как форматировать пули в Excel в Powerpoint VBA так, чтобы пули появлялись только перед фарографами

Im написание кода VBA для запуска и создания презентации Power Point из Excel VBA.

Дело в том, что я добавляю текстовое поле к некоторым слайдам с текстом, который приходит из 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

1 ответ

  1. То, что вы называете пробелами, на самом деле абзацы. Поэтому, когда вы применяете маркеры ко всему текстовому фрейму, все абзацы, даже без текста, получают маркеры.

    Чтобы решить эту проблему, вам нужно пройти через абзацы в TextRange и проверить длину текста. Затем можно применить маркеры к абзацам с текстом.