FORMAT POWERPOINT BULLETS IN CUSTOM TEXTBOXES

[ra]

FYI only -some useful Marco's below.

FOR CHANGING ALL BULLETS IN CUSTOM TEXTBOXES TO SELECTED TYPE

Sub BulletFormatChangeAll()
Dim oSld As Slide
Dim oShp As Shape
Dim oPar As TextRange
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.HasTextFrame Then
For Each oPar In oShp.TextFrame.TextRange.Paragraphs
If oPar.ParagraphFormat.Bullet.Type <> ppBulletNone
Then
If oPar.ParagraphFormat.Bullet.Type <>
ppBulletMixed Then
With oPar.ParagraphFormat.Bullet
.Visible = msoTrue
.UseTextColor = msoTrue
.Font.Name = "Arial"
.Character = 2022
End With
End If
End If
Next oPar
End If
Next oShp
Next oSld

End Sub


FOR CHANGING SELECTED TYPE OF BULLETS IN CUSTOM TEXTBOXES TO NEW
SELECTION

Sub BulletFormatSelectType()
Dim oSld As Slide
Dim oShp As Shape
Dim oPar As TextRange
For Each oSld In ActivePresentation.Slides
For Each oShp In oSld.Shapes
If oShp.HasTextFrame Then
For Each oPar In oShp.TextFrame.TextRange.Paragraphs
If oPar.ParagraphFormat.Bullet.Type <> ppBulletNone
Then
If oPar.ParagraphFormat.Bullet.Character = 186 _
Then
With oPar.ParagraphFormat.Bullet
.Visible = msoTrue
.UseTextColor = msoTrue
.Font.Name = "Courier New"
.Character = 2022
End With
End If
End If
Next oPar
End If
Next oShp
Next oSld

End Sub