Increase bullet size in all sides

[clhare]

Is it possible to increase the size of all bullets in a presentation? If so, how would I do that using VBA?

Thanks!

[John Wilson]

Something like this maybe:

Sub ject_bullets()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
With oshp.TextFrame.TextRange.ParagraphFormat
If .Bullet = True Then
.Bullet.RelativeSize = .Bullet.RelativeSize * 1.25
End If 'TextFrame
End With
End If 'Bullet
Next oshp
Next osld
End Sub