通过 PowerShell 通过 COM 对象传递变体以在 PowerPoint 中运行宏

Question

尝试将标题串在一起已经是一项挑战......

我正在尝试从 PowerShell 运行一些 PowerPoint 宏。我非常擅长从 Powershell for Excel 运行宏。当我在 Excel 上运行宏时，COM 对象的 Run() 方法将采用各种参数，具体取决于宏是否有任何参数。但是另一方面，PowerPoint Run() 方法需要参数，我不知道如何传递它们。

我的宏期望通过一个字符串，我在谷歌上大肆搜索，结果很短。我总是收到这个错误：

错误：

type must not be ByRef

我在 PowerShell 中为 PowerPoint 编写了一个非常基本的 PoC：

代码：

# PowerPoint test
Add-type -AssemblyName office
$PowerPoint = New-Object -comobject PowerPoint.Application

$PowerPoint.Visible = [Microsoft.Office.Core.MsoTriState]::msoTrue

$presentation2 = $PowerPoint.Presentations.open("C:\macros.pptm")
$presentation = $PowerPoint.Presentations.open("C:\Test For Macros.pptx")

$PowerPoint.run("macros.pptm!IAM",[ref]"Feb")
$presentation.save()
$presentation.close()

$presentation2.close()
$PowerPoint.quit()

# extra clean up omitted

宏本身只是跨框移动一些文本，从 PowerPoint 运行时效果很好。

要求：

我现在想跨多个文件和幻灯片自动执行此操作。

Documentation on the PowerPoint COM object Run method，表示需要两个参数。

Answer 1

很好的问题，不像你说的那样网上有很多例子。我设法进一步简化了您的示例，并成功地将一些文本传递给 PowerPoint 宏中的 MsgBox，而没有真正改变您所拥有的内容。

保存在 C:\Temp 文件 PowerShellTest.pptm 中的宏

Sub DisplayMessage(myText As String)
  MsgBox myText
End Sub

PowerShell 脚本：

# PowerPoint test
Add-type -AssemblyName office
$PowerPoint = New-Object -comobject PowerPoint.Application

$PowerPoint.Visible = [Microsoft.Office.Core.MsoTriState]::msoTrue

$presentation = $PowerPoint.Presentations.open("C:\Temp\PowerShellTest.pptm")

$PowerPoint.run("PowerShellTest.pptm!DisplayMessage",[ref]"Feb")

您提供的 Run 方法文档链接提到可能包含模块名称，因此这对我也有用：

$PowerPoint.run("PowerShellTest.pptm!Module1.DisplayMessage",[ref]"Feb")

Answer 2

也许尝试删除下面代码行中的 [ref] 或尝试将其更改为 [val]

$PowerPoint.run("macros.pptm!IAM",[ref]"Feb")

所以要么：

$PowerPoint.run("macros.pptm!IAM","Feb")

或：

$PowerPoint.run("macros.pptm!IAM",[val]"Feb")

然后还要确保 PowerPoint 宏期望通过 ByVal 传递变量。例如这样的：

Sub IAM(ByVal sMonthName As String)