事半功倍 ---- 快速复制图片和文字到多张幻灯片

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。