PPT中如何使用VBA

### 使用VBA在PowerPoint中实现自动化操作

#### VBA基础设置
为了能够在 PowerPoint 中使用 VBA 进行开发，首先要启用开发者选项卡。这可以通过文件菜单下的“选项”，再选择“自定义功能区”并勾选“开发者”来完成[^1]。

#### 创建简单的宏程序
一旦启用了开发者工具栏，就可以通过点击“Visual Basic”按钮打开VBE (Visual Basic Editor)，在这里可以新建模块并输入代码。下面是一个简单例子，用于向当前演示文稿的第一张幻灯片添加文本框：

Sub AddTextBoxToSlide()
    Dim pptApp As Presentation
    Set pptApp = ActivePresentation
    
    With pptApp.Slides(1).Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=100, Width:=300, Height:=50)
        .TextFrame.TextRange.Text = "这是通过VBA插入的文字"
    End With
End Sub

此段脚本展示了如何访问活动演示文稿 (`ActivePresentation`) 并在其首张幻灯片上创建一个新的水平方向的文本框(`AddTextbox` 方法)。

#### 自动化批量修改图片大小
对于含有大量图像的 PPT 文件来说，统一调整所有图片尺寸是一项常见需求。这里给出一段能够遍历每一张幻灯片并将其中所有的图形对象按比例缩放至指定宽度的代码片段:

Sub ResizeAllImages()
    Const NEW_WIDTH As Single = 200 ' 新的目标宽度像素数
    Dim sld As Slide
    For Each sld In ActivePresentation.Slides
        Dim shp As Shape
        For Each shp In sld.Shapes
            If shp.Type = msoPicture Then
                Dim ratio As Single
                ratio = NEW_WIDTH / shp.Width
                
                shp.LockAspectRatio = True
                shp.ScaleWidth ratio, msoFalse, msoScaleFromTopLeft
                shp.ScaleHeight ratio, msoFalse, msoScaleFromTopLeft
            End If
        Next shp
    Next sld
End Sub

上述函数会循环检查每一个形状(`Shape`)实例，当发现其类型为 `msoPicture`(即图片)时，则计算新的宽高比率，并据此重新设定该图元的比例因子。

#### 自动生成目录页
另一个实用的应用场景是从现有标题提取信息来自动生成目录页。以下是相应逻辑的具体体现：

Sub GenerateTableOfContents()
    Dim tocSlideIndex As Integer
    tocSlideIndex = InputBox("请输入要放置目录的位置索引:")

    Application.CommandBars.ExecuteMso ("NewSummary")

    Dim i As Long
    For i = 1 To ActivePresentation.Slides.Count
        If Not IsEmpty(ActivePresentation.Slides(i).Title) And Len(Trim$(ActivePresentation.Slides(i).Title)) > 0 Then
            Call ActivePresentation.Hyperlinks.AddAnchor(Anchor:=tocSlideIndex, Address:="", SubAddress:="slide." & CStr(i), TextToDisplay:=ActivePresentation.Slides(i).Title)
        End If
    Next i
End Sub

这段代码首先提示用户输入希望插入目录所在的幻灯片位置，接着调用内置命令生成空白摘要页；随后迭代整个演示文稿内的各帧，只要某帧存在非空标题就将其链接到新建立的内容列表项之中。