可以在PPT里面批量插入图片,Sub InsertPic()   Dim i As Integer