事半功倍 ---- 快速复制图片和文字到多张幻灯片
来源:互联网 发布:ssh三大框架书籍知乎 编辑:程序博客网 时间:2024/06/03 22:48
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。
- 事半功倍 ---- 快速复制图片和文字到多张幻灯片
- 同时复制图片和文字到剪贴板
- 网页中禁止复制文字和图片
- 如何禁止复制文字和下载图片
- 图片文字快速转换
- 关于网页中禁止复制文字和图片 !
- 复制文字,图片到剪切板
- 幻灯片效果和图片滚动效果
- 文字幻灯片交替效果
- 设置h5页面不可复制文字、图片
- PowerPoint2007复制幻灯片
- PowerPoint如何复制幻灯片
- 图片和文字居中
- 图片和文字排版
- 上传图片和文字
- 绘制图片和文字
- 图片和文字同行
- 图片和文字样式
- 实现ASP.NET中FileUpload多文件上传
- 网络编程视频学习
- 设计模式(三)--装饰者模式(2)
- 堆和栈的区别 (BY 任我行)
- Compile MaNGOS On Windows
- 事半功倍 ---- 快速复制图片和文字到多张幻灯片
- void指针
- //让 Edit 只接受数字
- Null value was assigned to a property of primitive type setter
- 自选图形的艺术组合——圆形
- MFC中获得文件夹路径的方法
- GDI+ 中 delete 陷阱
- VC++中打开文件和保存文件对话框的调用
- 停止担忧.