ppt批量插入

 
在 PPT 中，可以使用 VBA 宏实现批量插入图片、文本框等元素。具体步骤如下：
 
1. 打开PowerPoint，按下“ALT + F11”进入 VBA 编辑器。
 
2. 在 VBA 编辑器界面中，点击“插入”菜单，选择“模块”，在弹出的对话框中输入以下代码：
 
```
Sub AddShapesToSlides()
    Dim oSlide As Slide
    Dim oShape As Shape
    Dim sImagePath As String
    Dim lWidth As Long, lHeight As Long
 
    '设置图片路径
    sImagePath = "C:\picture.png"
 
    '设置图片的宽度和高度，这里将宽度和高度都设置为 400 磅
    lWidth = 400
    lHeight = 400
 
    '遍历幻灯片，将指定的图片插入到右下角
    For Each oSlide In ActivePresentation.Slides
        '新建一个形状
        Set oShape = oSlide.Shapes.AddPicture(sImagePath, False, True, oSlide.Width - lWidth - 10, oSlide.Height - lHeight - 10, lWidth, lHeight)
 
        '更改形状的其他属性，如下：
        'oShape.Line.Visible = msoFalse
        'oShape.Fill.Transparency = 0#
 
    Next oSlide
 
End Sub
```
 
3. 将代码中的 sImagePath 等参数替换成实际需要的路径和属性值。
 
4. 按下“F5”或点击工具栏的“运行”按钮，执行宏。
 
执行成功后，所有幻灯片中都插入了指定的元素。您可以按照需要更改代码中的位置、大小、透明度等参数，插入其他元素，例如文本框等。