【魅力老猫】事半功倍 — 快速复制图片和文字到多张幻灯片
有锐友问:如何快速的把一段文字或一个图片粘贴到“几张”幻灯片中?
这是一个常用功能。将一些图片和文字复制到一两张幻灯片中不觉麻烦;如果复制到的幻灯片多了—- 不妨大胆想象有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。
PS:
将宏安全级别设为低的方法
单击“工具”菜单中的“选项”命令。
单击“安全性”选项卡。
在“宏安全性”之下,单击“宏安全性”。
单击“安全级”选项卡,再选择所要使用的安全级。