文章详情

短信预约-IT技能 免费直播动态提醒

请输入下面的图形验证码

提交验证

短信预约提醒成功

ppt批量删除每页相同位置文稿(图片文字等)的方法

2023-09-29 12:18

关注

第一步:打开视图-宏

第二步:输入宏名(可以是人以文字、字母或数字加字母,但不能是纯数字)

第三步:点击创建

第四步:复制以下文字

Sub Test()Dim oSlide As Slide, oShape As ShapeDim myWidth As Single, myHeight As Single, myTop As Single, myLeft As SingleOn Error Resume NextIf ActiveWindow.Selection.ShapeRange.Count <> 1 ThenIf Err.Number <> 0 ThenMsgBox "none" & vbCrLf & "choose one", vbExclamation + vbOKOnlyErr.ClearExit SubEnd IfMsgBox "choose exceed 1" & vbCrLf & "choose one", vbExclamation + vbOKOnlyExit SubEnd IfSet oShape = ActiveWindow.Selection.ShapeRange(1)myTop = oShape.TopmyLeft = oShape.LeftmyHeight = oShape.HeightmyWidth = oShape.WidthFor Each oSlide In ActivePresentation.SlidesFor Each oShape In oSlide.ShapesIf Abs(myTop - oShape.Top) < 1 And Abs(myLeft - oShape.Left) < 1 And Abs(myHeight - oShape.Height) < 1 And Abs(myWidth - oShape.Width) < 1 ThenoShape.DeleteEnd IfNextNextEnd Sub

第五步:删除原来的“宏代码”

第六步:将复制的文字粘贴到打开的“宏代码”空白处

第七步:关闭或最小化“宏代码”文档

第八步:在原文档中点击选中要删除的图片或其他对象

第九步:点击宏-运行

至此,所有相同位置的文搞对象都已经删除,点击“保存”就可以了

来源地址:https://blog.csdn.net/xueyizhiyong_/article/details/127958934

阅读原文内容投诉

免责声明:

① 本站未注明“稿件来源”的信息均来自网络整理。其文字、图片和音视频稿件的所属权归原作者所有。本站收集整理出于非商业性的教育和科研之目的,并不意味着本站赞同其观点或证实其内容的真实性。仅作为临时的测试数据,供内部测试之用。本站并未授权任何人以任何方式主动获取本站任何信息。

② 本站未注明“稿件来源”的临时测试数据将在测试完成后最终做删除处理。有问题或投稿请发送至: 邮箱/279061341@qq.com QQ/279061341

软考中级精品资料免费领

  • 历年真题答案解析
  • 备考技巧名师总结
  • 高频考点精准押题
  • 2024年上半年信息系统项目管理师第二批次真题及答案解析(完整版)

    难度     813人已做
    查看
  • 【考后总结】2024年5月26日信息系统项目管理师第2批次考情分析

    难度     354人已做
    查看
  • 【考后总结】2024年5月25日信息系统项目管理师第1批次考情分析

    难度     318人已做
    查看
  • 2024年上半年软考高项第一、二批次真题考点汇总(完整版)

    难度     435人已做
    查看
  • 2024年上半年系统架构设计师考试综合知识真题

    难度     224人已做
    查看

相关文章

发现更多好内容

猜你喜欢

AI推送时光机
位置:首页-资讯-服务器
咦!没有更多了?去看看其它编程学习网 内容吧
首页课程
资料下载
问答资讯