事半功倍 ---- 快速复制图片和文字到多张幻灯片
2011-01-02 23:17
302 查看
VBA编程
事半功倍 ---- 快速复制图片和文字到多张幻灯片
如何快速的把一段文字或一个图片粘贴到“几张”幻灯片中?
这是一个常用功能。将一些图片和文字复制到一两张幻灯片中不觉麻烦;如果复制到的幻灯片多了---- 不妨大胆想象有100多张。一张一张复制还能有耐心吗? 解决类似简单却很麻烦的问题时,VBA就排上用场了:两句代码,瞬间解决战争。
方法:
1.按Alt+F11键,插入--模块,将下列代码复制在模块中:
Sub copyPict()
ActiveWindow.Selection.ShapeRange.Copy
ActivePresentation.Slides.Range(Array(2, 3, 5)).Shapes.Paste
End Sub
2. 程序注释:
代码的意思是将所选图片和文字复制到2、3、5号幻灯片中。Array后面括号中的数字是幻灯片号,可作相应的修改。 如果要复制到连续的多张幻灯片中,可使用循环:
Sub copyPict()
ActiveWindow.Selection.ShapeRange.Copy
For i = 2 To 5 '复制到2~5号幻灯片中
ActivePresentation.Slides.Range.Item(i).Shapes.Paste
Next
End Sub
3.运行代码
首先将宏安全级别设为低。
选择要复制的图片和文字,按Alt+F8键,运行copyPict。
事半功倍 ---- 快速复制图片和文字到多张幻灯片
如何快速的把一段文字或一个图片粘贴到“几张”幻灯片中?
这是一个常用功能。将一些图片和文字复制到一两张幻灯片中不觉麻烦;如果复制到的幻灯片多了---- 不妨大胆想象有100多张。一张一张复制还能有耐心吗? 解决类似简单却很麻烦的问题时,VBA就排上用场了:两句代码,瞬间解决战争。
方法:
1.按Alt+F11键,插入--模块,将下列代码复制在模块中:
Sub copyPict()
ActiveWindow.Selection.ShapeRange.Copy
ActivePresentation.Slides.Range(Array(2, 3, 5)).Shapes.Paste
End Sub
2. 程序注释:
代码的意思是将所选图片和文字复制到2、3、5号幻灯片中。Array后面括号中的数字是幻灯片号,可作相应的修改。 如果要复制到连续的多张幻灯片中,可使用循环:
Sub copyPict()
ActiveWindow.Selection.ShapeRange.Copy
For i = 2 To 5 '复制到2~5号幻灯片中
ActivePresentation.Slides.Range.Item(i).Shapes.Paste
Next
End Sub
3.运行代码
首先将宏安全级别设为低。
选择要复制的图片和文字,按Alt+F8键,运行copyPict。
相关文章推荐
- Android Retrofit 实现(图文上传)文字(参数)和多张图片一起上传
- iOS打开复制文字,链接,图片到粘贴板
- 简单的IE内核多页浏览器(支持解锁右键锁定和文字选择复制锁定支持网页截成图片)
- 禁止复制文字,下载图片的方法
- 快速在PPT里插入多张图片
- 关于网页中禁止复制文字和图片 !
- 使用httpHttpURLConnection上传多张图片和文字的方法
- 设置h5页面不可复制文字、图片
- 复制幻灯片(包括格式、背景、图片等)到同/另一个PPT文档
- ps怎样简单快速去除图片上的文字
- 【WPS快速调整从网上复制的零乱文字】
- 网页中禁止复制文字和图片
- 百度空间快速贴多张图片的方法。
- python复制word中的内容,包括格式、图片、文字
- 实现android上传多张图片和文字给php后台
- C# 复制幻灯片(包括格式、背景、图片等)到同/另一个PPT文档
- JS复制图片文字到剪切板
- 不使用flash实现复制文字(图片)到剪贴板
- #天天复制,今天写一个# 把文字转为图片
- 详情页点击其中图片转换成幻灯片图文模式,图片对应文字。