PPT执行宏脚本

功能

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

输入

选项

输出

注意/说明

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

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

3.宏脚本例子参考。

（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.各函数的属性设置：

2.执行效果

创建 .pptm 文件，在文件中新增幻灯片并增加文本；文本增加成功，则返回 true。

示例附件

组件[PPT执行宏脚本]_20240625.db