Powerpoint VisualBasic Script

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