在多张幻灯片中分别插入一张图片的VBA宏代码
要想在幻灯片中插入图片，一般情况下，进行一次操作，我们只能在一张幻灯片中同时插入一张或多张图片。如果我们想要通过一次操作，能实现在所有的幻灯片中都分别插入一张图片，那么，使用普通的操作方法是不行的。如果非要实现这种功能，就目前而言，非得使用VBA不可。
以下给大家介绍这种方法，希望对您有所帮助：
第一步：首先准备好图片，假设在E盘下面的Pictures文件夹内有66张jpg格式的图片，如“P1.jpg”、“P2.jpg”、“P3.jpg”等等，图片文件名称必须是有一点的数字规律。
第二步：启动PowerPoint 2003，按下Alt+F11键打开Visual Basic编辑器窗口，点击“插入→模块”菜单命令，在弹出的代码编辑窗口中输入以下代码：
Sub MyInsertPic()
Dim i As Integer
For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Select
With ActiveWindow.Selection.SlideRange
.FollowMasterBackground = msoFalse
.Background.Fill.UserPicture "P" & i & ".jpg"
End With
Next
End Sub
以上代码的功能是，分别扫描幻灯片的总数，然后，对应于每一张幻灯片的序号，自动插入与幻灯片序号一致的图片，插入到当前的幻灯片中。
第三步：关闭Visual Basic编辑器窗口，上面的模块代码会自动保存。此时，连续按Ctrl+M键建立与图片数目相等(如：66)的多个空白幻灯片。按Alt+F8键打开宏对话框，选中我们上面建立的MyInsertPic宏，点击“运行”即可，66张图片很快就分别自动插入到每一张幻灯片中了。
注意，演示文稿ppt文件，要和图片放在同一个文件夹下。
很不错，找到组织了！
页:
[1]