复制图文到多张幻灯片.doc

【开发】快速复制图文到多张幻灯片 阅读原文 2011-11-21 19:45:00 | 前面我们简述了什么是VBA（点击阅读关于VBA的那些事），今天我们就通过一个简单而实用的案例来进一步来理解VBA，来见证他的高效、强大之处。 有人问：如何快速的把一段文字或一个图片粘贴到“几张”幻灯片中？ 这是一个常用功能，将一些图片和文字复制到一两张幻灯片中不觉麻烦。如果复制到的幻灯片多了，不妨大胆想象有100张。一张一张复制还能有耐心吗？ 解决类似简单却很麻烦的问题时，VBA就排上用场了，两句代码，瞬间解决战争。一、代码编写 按Alt+F11键，插入模块，将下列代码复制在模块中。 Sub copyPict() ActiveWindow.Selection.ShapeRange.Copy ActivePresentation.Slides.Range(Array(2, 3, 5).Shapes.Paste ; End Sub操作示意图二、程序注释 代码的意思是将所选图片和文字复制到2、3、5号幻灯片中。Array后面括号中的数字是幻灯片号，可作相应的修改。 如果要复制到连续的多张幻灯片中，可使用循环： Sub copyPict() ActiveWindow.Selection.ShapeRange.Copy For i = 2 To 5 复制到25号幻灯片中 ActivePresentation.Slides.Range.Item(i).Shapes.Paste Next End Sub三、运行代码 首先将宏安全级别设为低。选择要复制的图片和文字，按Alt+F8键，运行copyPict，复制前后效果如下。