• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 3981
  • Last Modified:

VBA code to insert a square blue bullet

Please see attached graphic.  Trying to get vba code to add the bullet to a senetence but can't figure out the character number.Bullet Example
0
HyperBPP
Asked:
HyperBPP
2 Solutions
 
MichaelBusiness AnalystCommented:
Hi there,

Try something like this:
With pptSlide.Shapes(2).TextFrame.TextRange.ParagraphFormat.Bullet
    .Type = ppBulletUnnumbered
    .Character = 110
    .Font.Name = "Wingdings"
    .Font.Color = RGB(50, 100, 200)
End With

Open in new window

Where:
pptSlide refers to your slide
shapes(2) refers to the textframe where your text resides; change the index if needed.
And I didn't know the exact color code of your blue, but you can change that also easily.
0
 
byundtCommented:
Not every font has it, but Unicode glyph 25A0 (9632 decimal) is a large black square suitable for use as a bullet. I found it in Lucida Sans Unicode, but it appears to create large blue squares without need for specifying a particular font. Nor did I find it necessary to specify the .Type property of the BulletFormat. So incorporating these tweaks to JazzyJoop's code, I got:
Sub Test()
Dim pptSlide As Slide
Set pptSlide = ActivePresentation.Slides(2)
With pptSlide.Shapes(2).TextFrame.TextRange.ParagraphFormat.Bullet
    .Character = 9632
    .Font.Color = RGB(50, 100, 200)
End With
End Sub

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now