Solved

VBA code to insert a square blue bullet

Posted on 2013-11-15
2
2,786 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 80

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

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Suggested Solutions

Title # Comments Views Activity
Report events not being triggered 8 100
wordmultiple challenge 12 90
CRM 2011 Decimal Out of Range 2 32
Modify a small python script 19 53
This is an explanation of a simple data model to help parse a JSON feed
Many programs have tried to outwit PowerPoint in terms of technology and skill. These programs, however, still lack several characteristics that PowerPoint has possessed from the start. Here's why PowerPoint replacements won't entirely work for desi…
The viewer will learn how to edit text. This includes Font, Spacing, Resizing, Color, and other special text options.
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…

758 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

19 Experts available now in Live!

Get 1:1 Help Now