Solved

VBA code to insert a square blue bullet

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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
VB6 Compile Compatibility Issue 4 90
Path to Python 9 110
PowerPoint 2013 Issues 9 31
How to obtain Administrator permission when you are the Administrator 6 66
Whether you’re a college noob or a soon-to-be pro, these tips are sure to help you in your journey to becoming a programming ninja and stand out from the crowd.
Although it can be difficult to imagine, someday your child will have a career of his or her own. He or she will likely start a family, buy a home and start having their own children. So, while being a kid is still extremely important, it’s also …
The viewer will learn how to edit the master slide. They will also learn how to combine multiple themes into one master slide to use them in their presentation.
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…

863 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

23 Experts available now in Live!

Get 1:1 Help Now