Jimmy筆記: Office-使用巨集刪除PPT投影片內所有圖片

2021年10月24日星期日

Office-使用巨集刪除PPT投影片內所有圖片

想將投影片裡所有的圖片刪除，但不想影響到現有的格式，也考慮到第一頁的主題圖片不要刪到，故從倒數刪到投影片第二頁。

with用法參考：

https://docs.microsoft.com/zh-tw/dotnet/visual-basic/language-reference/statements/with-end-with-statement

'從最後一頁開始到第2頁。
For Page = ActivePresentation.Slides.Count To 2 Step -1
'設定目前Pid為目前的投影片的頁。
    Set Pid = ActivePresentation.Slides(Page)
  '檢查該頁的所有物件。     
    For shapenumber = Pid.Shapes.Count To 1 Step -1
  '指定結構成員。
      With Pid.Shapes.Item(shapenumber)
  '刪除連結的圖片及載入的圖片。
      If .Type = msoLinkedPicture Or .Type = msoPicture Then .Delete
      End With
   Next
Next

沒有留言:

張貼留言

訂閱：張貼留言 (Atom)