如何使用 vsto powerpoint 删除所有图像占位符 powerpoint答案

【问题标题】：How to delete all image placeholder powerpoint with vsto powerpoint如何使用 vsto powerpoint 删除所有图像占位符 powerpoint
【发布时间】：2019-08-18 17:04:48
【问题描述】：

我正在尝试为 PowerPoint 2019 制作插件。我只想删除 PowerPoint 中幻灯片上的图像。当我点击按钮时，我在功能区上制作按钮，所有图像都被删除。

 Sub DeleteAllPictures()
On Error Resume Next
    Dim PPSlide As Slide
    For Each PPSlide In ActivePresentation.Slides
 PPSlide.Shapes.Placeholders(1).Delete
        PPSlide.Shapes.Placeholders(2).Delete
        PPSlide.Shapes.Placeholders(3).Delete
        PPSlide.Shapes.Placeholders(4).Delete
        PPSlide.Shapes.Placeholders(5).Delete
        PPSlide.Shapes.Placeholders(6).Delete
        PPSlide.Shapes.Placeholders(7).Delete
        PPSlide.Shapes.Placeholders(8).Delete
        PPSlide.Shapes.Placeholders(9).Delete
        PPSlide.Shapes.Placeholders(10).Delete
            Next 
End Sub

之前我使用 vba 宏删除了所有图像，它可以工作。

作为 vsto 的新手，我不知道在哪里以及如何删除所有图像。任何形式的帮助将不胜感激。对不起我的英语不好。

【问题讨论】：

请说明您是要删除所有图像还是所有占位符。它们是两种不同的东西。

标签： vb.net vsto powerpoint

【解决方案1】：

Slide 类的Shapes 属性返回一个Shapes 集合，该集合表示已放置或插入指定幻灯片、幻灯片母版或幻灯片范围的所有元素。 Shapes.Placeholders 属性返回一个 Placeholders 集合，表示幻灯片上所有占位符的集合。

尝试使用以下代码：

Sub DeleteAllPictures()
On Error Resume Next
    Dim PPSlide As Slide
    For Each PPSlide In ActivePresentation.Slides
        Dim PPShapes as powerPoint.Shapes = PPSlide.Shapes
        For Each PPPlaceholder In PPShapes.Placeholders
          PPPlaceholder.Delete
        Next  
    Next 
End Sub

【讨论】：