如果你知道图片的Name 可以,如名称是"Picture 1" xlSheet.Shapes("Picture 1").delete 如果不知道名称,知道在单元格的位置,譬如顶点位置在$B$3 可以循环判断后删除 For Each P In xlSheet.Shapes If P.Name Like "Picture*" and P.TopLeftCell.
