Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

To use a picture as a bullet, set the Type property of the BulletFormat object to ppBulletPicture and then use the Picture meth

Sub picture()     With ActiveSlide.Shapes(1).TextFrame.TextRange.ParagraphFormat.Bullet         .Type = ppBulletPicture         .Picture Picture:="z:\1.jpg"     End With End Sub