PowerPoint VBA 刪除所有圖片

研究只刪除PPT 內所有圖片。

圖片為：msoLinkedPicture Type 值為11，
針對每頁投影片中的圖案類型做比對，
類型值為11進行刪除動作。


MsoShapeType 型別

https://docs.microsoft.com/zh-tw/office/vba/api/office.msoshapetype


程式碼：
Sub DeleteAllPictrue()

'全部投影片
For Each sld In ActivePresentation.Slides

    For intshape = sld.Shapes.Count To 1 Step -1

       
    With sld.Shapes.Item(intshape)
'刪除圖片
      If .Type = msoLinkedPicture Then .Delete
   
    End With
 
  Next

Next

End Sub