PPT执行宏

功能

在页面中执行宏，Powerpoint 文件需是启用宏的文件，执行宏操作后所做的更改会立即保存。

输入

选项

输出

注意/说明

1.文件需要启用宏，并且参数【宏名称】为必填项。

2.调用的【宏文件】与要执行操作的文件是同一文件。

3.此处的 “.pptm” 宏文件，是指具有宏脚本的文件，可通过调用该文件进行相关的宏操作。

4.目前只支持 Microsoft Office，不支持 WPS Office。

5.宏脚本例子参考。

（1）宏脚本中无参数传递的例子：

'Sub AddSlide()
 Dim pptSlide As Slide
 Set pptSlide = ActivePresentation.Slides.Add(ActivePresentation.Slides.count + 1, ppLayoutBlank)
End Sub'

（2）宏脚本中有参数传递的例子：

'Sub AddTextToSlide(slideIndex As Integer, textContent As String)
    Dim textBox As Shape
    Set textBox = ActivePresentation.Slides(slideIndex).Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 400, 200)
    textBox.TextFrame.TextRange.Text = textContent
End Sub'

（3）宏脚本中有参数传递和返回值的例子：

'Function AddText(index As Integer, contents As String) As Boolean
    Dim slideIndex As Integer
    Dim textBox As Shape
    Dim textContent As String
    On Error GoTo ErrorHandler
    slideIndex = index
    textContent = contents
    Set textBox = ActivePresentation.Slides(slideIndex).Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 400, 200)
    textBox.TextFrame.TextRange.Text = textContent
    AddText = True
    Exit Function
ErrorHandler:
    AddText = False
End Function'

相关函数

【PPT应用程序范围】、【构建字符串列表】、【日志消息】

示例/演示

现以向 Powerpoint 文件中指定的幻灯片中添加文本为例：

1.打开 .pptm 文件，单击“开发工具”，增加宏。

2.各函数的属性设置：

3.执行前效果 4.执行后效果

示例附件

组件[PPT执行宏]_20240625.db