PPT批量删除相同位置图片（非母版）的野路子

最新推荐文章于 2024-05-07 18:28:43 发布
最新推荐文章于 2024-05-07 18:28:43 发布
阅读量2k 收藏
点赞数
文章标签： 知识图谱
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/lovedzc/article/details/127807923
版权

  1. 确保文件是 pptx 格式。如果是老式 ppt 格式，请先另存为 pptx

  2. 将 pptx 扩展名改为 zip。如 xxxxx.zip

  3. 把这个 zip 文件解压缩

  4. 在解开的文件夹中找到要删除的图片。一般来说它位于 xxxxx\ppt\media 目录下

  5. 用PS或者别的什么图片编辑工具，打开要删除的图片，把图片内容删成透明的

  6. 上一步只对 png 格式有效。如果图片不幸是 jpg 格式，可以删成纯白色，或者另存为png再删成透明，但需要修改对应的 xml 文件

  7. 把文件夹重新压缩成 zip，然后再把扩展名改回 pptx

lovedzc
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
PPT文档工具 PPT文档母版批量设置工具 v1.56
10-16
PPT文档母版批量设置工具是一款PPT文档母版批量设置工具，批量为Microsoft PowerPoint幻灯片文档设置母版。操作简单：您只需为一个PPT文档设置母版，然后在本工具中将其选择为复制模板
乐享幻灯片 ppt批量处理大师V3.3 破解版+注册机
08-13
乐享幻灯片(ppt)批量处理大师V3.3破解版+注册机
PPT 批量删除每页相同位置的内容
qq1507171150的博客
02-28 1169
中先选择某个要删除的对象，然后运行宏即可。将下列函数复制到宏中，在。选择【视图】，【宏】
删除PPT所有页面中同一个位置的图片
u013594528的博客
03-04 1781
该宏会弹出一个提示框，提示用户在PPT中选择一个图片的位置。用户可以使用鼠标在PPT中选择一个图片的位置，然后点击“确定”按钮。然后，该宏会删除所有该位置的图片。
在未使用母版的情况下，如何一键删除每页PPT的统一元素
m0_56539895的博客
05-07 100
3.删除该元素（示例：删除每个幻灯片中名为“Icon”的对象）使用工具：PowerPoint的VBA。1.输出每页PPT包含的元素名称。2.获得需要删除元素的名称。
ppt批量删除每页相同位置的内容（图片文字等）
热门推荐
weixin_43856199的博客
07-25 2万+
view-macros 视图-宏 我很懒 用的是宏批量删除的方法。。。 函数内容如下 在ppt中先选择某位置！！然后运行宏即可 Sub Test() Dim oSlide As Slide, oShape As Shape Dim myWidth As Single, myHeight As Single, myTop As Single, myLeft As Single On Error Re...
如何快速删除多张ppt上的多张一样的图
ilovestudy2的博客
08-02 6965
Sub DeletePic() Dim SelSlide As Slide Dim SelPicName As String If ActiveWindow.Selection.Type = ppSelectionNone Then MsgBox ("请选中待删除的图片！") Else SelPicName = ActiveWindow.Selection.ShapeRange.Name ...
去除图片水印_在2016PPT中去除图片水印
weixin_33516557的博客
01-15 115
PPT具有的功能远远超过我们想象，从视频插入到图片形状、从字体字号到字体颜色、从排版效果到动画使用，只要你愿意，它所具有的千变万化功能及其组合能力让你对它“另眼相看”。——编者说 很多图片为了保护拥有者的版权，都在图片上添加了水印等标志，但对于教育使用者来说，其主要应用于非盈利的教学应用，添加了水印的图片影响展示效果。 为了使图片变得更干净，老师们需要使用...
PPT使用VBA批量删除图形
weixin_40591361的博客
08-26 1798
原因 一般被分享的PPT都是转换成PDF格式，想要借鉴的时候，需要通过一些工具转换，转换后，原版的logo，页眉页脚什么都需要删除，如果PPT页数很多，就难以删除，因此有这篇文章 第一阶段方案 借鉴了http://www.dzwebs.net/4321.html这篇文章，写出来一些代码，这个是通过名称进行删除，但是当PPT使用了多个版式,容易错删其他页面的正常图形。 如果样式简单、版式比较单一，可以使用下面的代码： Sub delshapes_withname() For Each sld In A
PPT文档母版批量设置工具 v1.51.zip
07-11
PPT文档母版批量设置工具是一款PPT文档母版批量设置工具，批量为Microsoft PowerPoint幻灯片文档设置母版。操作简单：您只需为一个PPT文档设置母版，然后在本工具中将其选择为复制模板，就可以批量为多个PPT文档一次...
Java 创建并应用PPT幻灯片母版的方法示例
08-19
Java 创建并应用 PPT 幻灯片母版的方法示例 幻灯片母版是 PowerPoint 文档中的一种重要组成部分，它允许用户设置幻灯片的样式，例如标题文字、背景、属性等。本文将介绍如何用 Java 创建并应用单个或多个幻灯片母版...
108张珍藏精美的PPT背景图片〔绝对好看)(经典简约).ppt
10-27
用于制作与众不同的漂亮PPT 报告
ppt批量删除每页相同位置文稿（图片文字等）的方法
xueyizhiyong_的博客
11-21 6758
ppt批量删除每页相同位置文稿（图片文字等）的方法
删除ppt文件内所有同一位置的内容
qq_39047461的博客
12-01 1903
转载遵循 CC 4.0 BY-SA 版权协议 在视图中创建宏，然后选中要删除的区域和内容，运行宏。done。 Sub Test() Dim oSlide As Slide, oShape As Shape Dim myWidth As Single, myHeight As Single, myTop As Single, myLeft As Single On Error Resume Next If ActiveWindow.Selection.ShapeRange.Count <> 1
PPT批量删除相同图片
weixin_42408584的博客
11-18 1360
PPT批量删除相同图片使用宏 使用宏 Sub DeletePic() Dim SelSlide As Slide Dim SelPicName As String If ActiveWindow.Selection.Type = ppSelectionNone Then MsgBox (" 请选中待删除的图片！ ") Else SelPicName = ActiveWindow.Selection.ShapeRange.Name For Each SelSlide In ActivePres
Linux基础 - 环境变量.mp4
06-18
Linux基础 - 环境变量.mp4大厂内部培训资料，都是干货！
模拟退火巡检顺序判定 使用MATLAB实现的机器人导航模拟退火巡检顺序判定，课运行.zip
06-18
模拟退火巡检顺序判定 使用MATLAB实现的机器人导航模拟退火巡检顺序判定，课运行
mcuisp串口下载软件
最新发布
06-18
mcuisp串口下载软件
Java文本编辑器应用程序（含源码）+GUI界面+使用说明+可做毕设
06-18
项目简介 JavaFX文本编辑器应用程序是一个简单的类似记事本的应用程序。在这个应用程序中，您可以轻松创建文本文档。该系统在编辑文本文件或文档时为您提供了更大的灵活性。该系统内置了各种功能，提供了编辑和样式化文本的控制。 系统简介 顾名思义，该项目主要用于编辑和创建文本文档。该项目增加了许多新功能，例如选择字体和字体粗细，以及字体样式（如加粗、斜体或下划线）。不仅如此，您还可以使用颜色格式突出显示文本，或者直接选择文本并为其着色。您还可以进行单词搜索，这有助于控制段落中的拼写错误。您还可以使用菜单栏中的注释符号引用您喜欢的句子。 该项目为国外大神项目，可以作为毕业设计的项目，也可以作为大作业项目，不用担心代码重复，设计重复等，如果需要对项目进行修改，需要具备一定基础知识。 注意：如果装有360等杀毒软件，可能会出现误报的情况，源码本身并无病毒，使用源码时可以关闭360，或者添加信任。
PPT VBA十五分钟倒计时
06-12
类似于前面的倒计时代码，我们可以在 PPT VBA 中使用 Application.Wait 方法和 Timer 函数结合实现倒计时功能。具体代码如下： ``` Sub Countdown() Dim count As Integer count = 900 ' 设置倒计时时间为 15 分钟，单位为秒 Do While count > 0 ActivePresentation.SlideMaster.Shapes("Countdown").TextFrame.TextRange.Text = "倒计时剩余时间：" & Format(count \ 60, "00") & ":" & Format(count Mod 60, "00") count = count - 1 Application.Wait (Now + TimeValue("0:00:01")) Loop ActivePresentation.SlideMaster.Shapes("Countdown").TextFrame.TextRange.Text = "倒计时结束！" End Sub ``` 在上面的代码中，我们先将倒计时时间设置为 15 分钟（即 900 秒），然后在循环中将倒计时剩余时间（格式为 mm:ss）更新到 PPT 主母版中的名为“Countdown”的文本框中，并使用 Application.Wait 方法暂停 1 秒钟，直到倒计时结束。最后在文本框中输出“倒计时结束！”的提示信息。 需要注意的是，这里假设 PPT 主母版中已经存在名为“Countdown”的文本框，如果不存在需要先在母版中添加对应的文本框。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值