如何从每张PPT幻灯片中删除位于特定位置（右上角）的图片答案

【问题标题】：How to remove pictures located at specific position(eg. top-right cornor) from every PPT slide如何从每张PPT幻灯片中删除位于特定位置（右上角）的图片
【发布时间】：2019-08-16 09:31:54
【问题描述】：

我有很多幻灯片文件，每张幻灯片的右上角都有一张图片。它既不是母版幻灯片，也不是自定义布局形状。

它们被一张一张地粘贴到所有幻灯片上。

我有一些代码如下，可以从幻灯片中删除所有形状（图片），但是如何在幻灯片的特定位置定位形状（图片）？

 For Each Slide In SlideList

    Set sldTemp = ActivePresentation.Slides(Slide)
    For lngCount = sldTemp.Shapes.Count To 1 Step -1
        With sldTemp.Shapes(lngCount)

         '----------Delete All shapes = picture---------- 
            If .Type = msoPicture Then
                .Delete
            End If
        End With
    Next
Next

'-----------------------------------------

我不太擅长使用 VBA 进行 powerpoint 编码，欢迎提出任何建议。谢谢。

【问题讨论】：

需要删除的图片是一样的。我已经尝试了很多 Google 和 Bing，并找到了按名称删除图片的解决方案。但图片的名称可能在不同的PowerPoint文件中随机出现。

标签： vba powerpoint shapes

【解决方案1】：

您可以通过查看 Top 和 Left 属性来检查位置。如果它们的尺寸相同，您也可以检查尺寸。

例如：

 If .Type = msoPicture Then
     If .Top > x and .Top < y and .Left > a and .Left < b Then 
       .Delete
       Exit For
     End If
 End If

其中 x、y、a 和 b 是变量或硬编码值。

【讨论】：

好的，我将尝试 2 像素清晰度显示和反馈

【解决方案2】：

非常感谢蒂姆·威廉姆斯。

试点代码在 3 台 Win10 x86 计算机上正常运行。

顺便说一句，按照这个说法

默认情况下，PowerPoint 中新演示文稿的尺寸目前是宽屏类型的演示文稿，13.333 英寸 x 7.5 英寸。大多数情况下，您的屏幕设置中将有 96 点每英寸 (dpi)，因此这意味着默认 PowerPoint 演示文稿的分辨率为 1280 x 720 像素。

虽然下面设置的左上角值可以与我的 powerpoint 幻灯片中右上角的小徽标（形状）完全匹配，但 3 种不同的显示结果相同，其中一种处于低清晰度模式。

Sub DeleteAllTopRightShapes()

Dim sldTemp As Slide
Dim lngTemp As Long
Dim lngCount As Long

For Each sldTemp In ActivePresentation.Slides
    For lngCount = sldTemp.Shapes.Count To 1 Step -1
        With sldTemp.Shapes(lngCount)



        If .Type = msoPicture Then
          If .Top >= 0 And .Top < 60 And .Left >= 400 Then

            .Delete

          End If
        End If

        End With
    Next
Next
    MsgBox "Process complete!"

结束子

【讨论】：

PowerPoint 不使用像素作为尺寸，它使用点（每英寸 72 点）。出于您的目的，像素完全无关紧要。