Excel/PPT中的Shapes.Type....Delete

Question

我正在尝试删除幻灯片上的现有形状(图片)，并尝试了以下内容，但它们都没有工作。作为背景，这段代码在Excel中运行，但与powerpoint交互，这只是代码的一个片段。其他一切都很好( PPPres已经定义好了)。我也尝试过索引形状(尽管它是幻灯片上唯一的一个)并使用for循环，但仍然无法使它工作。

 With PPPres.Slides(5).Shapes
    If Shapes.Type = msoPicture Then
       .Delete
    End If
 End With

*错误-方法或数据成员找不到(在.Delete上)。我知道".Delete“只在"with语句”中工作，但我有，所以我不知道出了什么问题。然后，我尝试了以下几点：

 If PPPres.Slides(5).Shapes.Type = msoPicture Then
         Shapes.Delete
 End If

*错误-方法或数据成员找不到(在.Type上)。我知道".Type“的存在，所以我对问题是什么感到困惑。

谢谢你的帮助!

Answer 1

形状返回对幻灯片的整个形状集合的引用。如果您确定只有一个形状，请使用

With PPPres.Slides(5).Shapes(1)
  If .Type = msoPicture Then
    .Delete
  End If
End With

Answer 2

我认为，在这种情况下，最好对每个循环使用。看看下面是否有帮助。

For Each shp In PPPres.Slides(5).Shapes
     If shp.Type = msoPicture Then
         shp.Delete
     End If
Next shp