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

本文详细介绍了如何通过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() 函数100For 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() 函数100For i = 1 To 100
        DeleteAllPicturesOnSlide
    Next i
End Sub
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值