Solved

VBA code to insert a square blue bullet

Posted on 2013-11-15
2
2,986 Views
Last Modified: 2013-11-20
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
Comment
Question by:HyperBPP
2 Comments
 
LVL 6

Accepted Solution

by:
Michael earned 250 total points
ID: 39652266
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
 
LVL 81

Assisted Solution

by:byundt
byundt earned 250 total points
ID: 39652659
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

Featured Post

Backup Your Microsoft Windows Server®

Backup all your Microsoft Windows Server – on-premises, in remote locations, in private and hybrid clouds. Your entire Windows Server will be backed up in one easy step with patented, block-level disk imaging. We achieve RTOs (recovery time objectives) as low as 15 seconds.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A short article about problems I had with the new location API and permissions in Marshmallow
PowerPoint is the go-to presentation software for millions of users around the world. Many presentations use basic text features but you can really make special text jump out of your slide by applying this bubble text design process. This article ha…
This video teaches viewers how to add simple and professional themes to their slides.
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …

813 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now