Share via

How to create a custom bullet with letters (fixed) and numbers (that increment)

Anonymous
2014-09-19T14:54:53+00:00

I want to create a new numbered bullet that is LO1, LO2, LO3, etc (for Learning Objective 1, etc.) to be used in PowerPoint 2010. I need to be able to access this easily over a whole semester's worth of PowerPoint presentations, rather than manually creating it each time.

I need to have the LO in a Rockwell font, small caps, and the number as a standard size. The result should look like this:

Is this possible?

Microsoft 365 and Office | PowerPoint | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments No comments
Answer accepted by question author
  1. Luc Sanders 48,445 Reputation points Volunteer Moderator
    2014-09-21T11:32:04+00:00

    Rick,

    Here's the link again, basically it's what I already explained in my previous answer.

    Outline numbering

    I agree that is not a smooth solution, numbering is not, and never has been, a strong feature in PPT. 

    John Wilson has this add-in that may help, although I am not sure this is what you are after:

    chapter numbering

    0 comments No comments

4 additional answers

Sort by: Most helpful
  1. Luc Sanders 48,445 Reputation points Volunteer Moderator
    2014-09-20T14:11:24+00:00

    Rick,

    I'm afraid you can't create your own numbering format including fixed letters in PPT. 

    I usually use Word to do the job though, see my blog article: 

    Numbering style

    To add the letters just click the numbering button in Word, at the bottom click Define new number format. Then click in the number format box, position your cursor in front of the number and type you fixed text. You may need to adjust the indents to fit the text.

    You can also insert a Word document into your PPT-presentation using Insert - Object - Microsoft Word document.

    1 person found this answer helpful.
    0 comments No comments
  2. Steve Rindsberg 99,156 Reputation points MVP Volunteer Moderator
    2014-09-21T15:49:56+00:00

    You can probably get there with a bit of VBA.  This seems to work, though it might need a few adjustments (color, size and so on).  It won't be quite as simple to undo it once it's done, so test it, make sure it works, then don't use it on your REAL slides until you're sure you won't be changing them again; renumbering would require you to remove what's been added manually.

    The text boxes have to be formatted a certain way to begin with; you should be able to do this on your slide master.  See the notes in Sub TestMe.  It's important to select ALL the text in the text box before setting the indents/tab.  This shows what the ruler should look like:

    First line indent all the way to the left,

    Second line indent and first tab indented however much you like but at the same position

    Option Explicit

    Sub TestMe()

    '   Select the text box that needs special bullets

    '   then run this TestMe subroutine (press F5)

    '   The text should have bullets set to NONE

    '   There should be a second line indent and a left tab set to the same

    '   place on the ruler, else it won't work

    Dim oSh As Shape

    Set oSh = ActiveWindow.Selection.ShapeRange(1)

    Call BulletizeMe(oSh)

    End Sub

    Sub BulletizeMe(oSh As Shape)

    Dim x As Long

    With oSh

    For x = 1 To .TextFrame.TextRange.Paragraphs.Count

    With .TextFrame2

    With .TextRange.Paragraphs(x)

    .Characters.Text = "LO" & CStr(x) & vbTab & Left$(.Text, Len(.Text) - 1)

    With .Characters(1, 3).Font

    .Name = "Rockwell"

    .Fill.ForeColor.RGB = RGB(0, 127, 0)

    End With

    With .Characters(1, 2).Font

    .Smallcaps = True

    ' and because setting Smallcaps on Rockwell seems to

    ' have no effect, you might also want to uncomment

    ' the following, which shrinks it to 80% of it's former self

    .Size = .Size * 0.8

    End With

    End With    ' textrange

    End With    ' textframe

    Next    ' paragraph

    End With    ' Shape

    End Sub

    0 comments No comments
  3. Anonymous
    2014-09-21T00:16:16+00:00

    Thanks for the bad news. Unfortunately when I try to access your blog it says I do not have permission.

    It's really unfortunate that Word and Ppt aren't more interchangeable. Bringing the Word Doc into Ppt is not a real smooth solution as the formatting is going to take some experimentation to make it look like the rest of my Ppt slides. Cheers.

    0 comments No comments
  4. Anonymous
    2014-09-20T12:54:04+00:00
    0 comments No comments