Is it possible to increase the size of all bullets in a presentation? If so, how would I do that using VBA?
Thanks!
Is it possible to increase the size of all bullets in a presentation? If so, how would I do that using VBA?
Thanks!
Something like this maybe:
[VBA]
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[/VBA]
John Wilson
Microsoft PowerPoint MVP
Amazing Free PowerPoint Tutorials
http://www.pptalchemy.co.uk/powerpoi...tutorials.html