使用VBA向幻灯片中插入大量图片做背景

有一次需要做一份幻灯片，大约要向其中插入30多张图片，使用“插入－图片”有可能因源文件像素过大而超出页面范围，需要重新调整尺寸。经查询，使用“背景－图像填充”的方式插入图片可以自动适应页面尺寸，但是此操作需要点击鼠标的动作太多了，于是想到了VBA。

第二个问题是PowerPoint中的宏是不能指定快捷键的，录制下面的宏之后，可以在自定义工具栏中将这个宏拖到“格式”工具栏中，并为它设置快捷键。

1、将宏按钮拖到“格式”工具栏中

 

2、设置快捷键

      

Sub Macro1()
\'
\' 宏由 微软用户 记录，日期: 2019-12-4
\'
    num = InputBox("输入图片编号", "图片编号", "")
    FileName = "C:\Documents and Settings\Administrator\桌面\1\" + num + ".jpg"
    ActiveWindow.Selection.SlideRange.Shapes("Rectangle 3").Select
    ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select
    ActiveWindow.Selection.Unselect
    With ActiveWindow.Selection.SlideRange
        .FollowMasterBackground = msoFalse
        .DisplayMasterShapes = msoFalse
        With .Background
            .Fill.Visible = msoTrue
            .Fill.ForeColor.RGB = RGB(255, 255, 255)
            .Fill.BackColor.SchemeColor = ppAccent1
            .Fill.Transparency = 0#
            \' .Fill.UserPicture "C:\Documents and Settings\Administrator\桌面\1\2.jpg"
            .Fill.UserPicture FileName
        End With
    End With
End Sub