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