VBA脚本： ppt删除所有图片脚本【图文】

最新推荐文章于 2025-02-25 10:08:59 发布

FakeOccupational

最新推荐文章于 2025-02-25 10:08:59 发布

阅读量825

点赞数 8

分类专栏：各种脚本文章标签： powerpoint

本文链接：https://blog.csdn.net/ResumeProject/article/details/137184507

版权

各种脚本专栏收录该内容

11 篇文章

订阅专栏

本文详细介绍了如何通过VBA脚本在MicrosoftPowerPoint中编写并执行删除所有图片的宏，包括创建新模块、编写DeleteAllPicturesOnSlide函数以及循环执行100次删除操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一个如何通过 VBA 脚本在 PowerPoint 中删除所有图片脚本的示例。

打开开发工具功能

在这里插入图片描述

vba代码

按下 Alt + F11 打开 VBA 编辑器（或者点击Visual Basic按钮）
右键点击工程，选择插入，新建模块

在这里插入图片描述

编写代码

Sub SelectAllPicturesOnSlide()
    Dim sld As slide
    Dim shp As Shape
    
    ' 获取当前活动的幻灯片
    Set sld = ActiveWindow.View.slide
    
    
    ' 遍历幻灯片上的每个形状
    For Each shp In sld.Shapes
        ' 检查形状是否为图片
        If shp.Type = msoPicture Then
            ' 删除图片
            shp.Delete
        End If
    Next shp
End Sub

可以进行调试

运行

关闭 VBA 编辑器，并返回到 PowerPoint，按下 Alt + F8(或者点击“宏”)，选择 SelectAllPicturesOnSlide函数，然后点击“运行”。

在这里插入图片描述

CG

HelloWorld

Sub HelloWorld()
    Dim slideIndex As Integer
    Dim slide As slide
    Dim textBox As Shape
    
    ' 添加一个新幻灯片
    slideIndex = ActivePresentation.Slides.Count + 1
    Set slide = ActivePresentation.Slides.Add(slideIndex, ppLayoutText)
    
    ' 在新幻灯片上添加一个文本框
    Set textBox = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 400, 200)
    
    ' 设置文本框的内容为 "Hello World"
    textBox.TextFrame.TextRange.Text = "Hello World"
End Sub

循环

Sub DeletePictures100Times()
    Dim i As Integer
    
    ' 循环执行 DeleteAllPicturesOnSlide() 函数100次
    For i = 1 To 100
        DeleteAllPicturesOnSlide
    Next i
End Sub

在这里插入图片描述

Sub DeleteAllPicturesOnSlide()
    Dim sld As slide
    Dim shp As Shape
    
    ' 获取当前活动的幻灯片
    Set sld = ActiveWindow.View.slide
    
    
    ' 遍历幻灯片上的每个形状
    For Each shp In sld.Shapes
        ' 检查形状是否为图片
        If shp.Type = msoPicture Then
            ' 删除图片
            shp.Delete
        End If
    Next shp
End Sub

Sub DeletePictures100Times()
    Dim i As Integer
    
    ' 循环执行 DeleteAllPicturesOnSlide() 函数100次
    For i = 1 To 100
        DeleteAllPicturesOnSlide
    Next i
End Sub