Use VBA in power point to set bullets

Question

I'm trying to set bullet points in Power Point VBA. I have the following working code, but it provides numbered bullets. I only want standard bullets.

Any help would be appreciated:

newRow.Cells(8).Shape.TextFrame.TextRange.Text = inputText ' Note this text is multi-line and of type string.
newRow.Cells(8).Shape.TextFrame.TextRange.ParagraphFormat.Bullet.Style = ppBulletCircleNumWDBlackPlain

Any help would be appreciated.

Thank you

Answer 1

You need to change bullet type with BulletFormat.Type property :

Dim tr As TextRange
Set tr = newRow.Cells(8).Shape.TextFrame.TextRange
'change to standard unordered bullet
tr.ParagraphFormat.Bullet.Type = ppBulletUnnumbered
'align bullets
tr.ParagraphFormat.Alignment = ppAlignLeft

Answer 2

Try this to maintain indentation of subsequent lines:

newRow.Cells(8).Shape.TextFrame.TextRange.ParagraphFormat.Bullet.Character = 8226