powershellが実行できません。

Question

前提・実現したいこと

powershellでパワポVBAを動かしたいのですが、エラーが出てきてできません。
いくつか調べ、権限変更も行いましたが、わからず困っています。
ご教授いただけると幸いです。

発生している問題・エラーメッセージ

Application.Run : 用語 'Application.Run'は、コマンドレット、関数、スクリプト、ファイル、または操作可能なプログラム

該当のソースコード

（sample1.ps1）
$file = "C:Users/Documents/sample.pptm"
$power = New-Object -ComObject PowerPoint.Application
$x = "a"
try {
   $book = $power.Presentations.Open($file)

   Application.Run "macro1",x
   $book.Close()
} finally {
   $power.Quit()
  [System.Runtime.InteropServices.Marshal]::FinalReleaseComObject($power) | Out-Null
} 

(sample.pptm)
Sub macro1()
 MsgBox("test")
End Sub

試したこと

下記参考に実行ポリシー変更しました。
https://qiita.com/earthdiver1/items/b3f529c81f5892972a72

実行ポリシー変更
Set-ExecutionPolicy RemoteSigned -Scope CurrentUser -Force

補足情報（FW/ツールのバージョンなど）

windows10
Windowspowershell
powerpoint2016

Comments

[yureighost]

ちょっと動作試せてないのでこちらに書きます。
Applicationはpowershellにはないのでエラーはまさにそのことが表示されています。
ただ上の方で
$power = New-Object -ComObject PowerPoint.Application
$powerにPowerPoint.Applicationオブジェクトを生成しているので、
これがApplicationオブジェクトになっているはず。

$book.Run
で実行できるのでは？

[Zuishin]

Application については yureighost さんのおっしゃる通りかと。$book.Run ではなく $power.Run ではないかと思いますが。

これは余談ですが、どこにこれをしろと書いてあるのか、FinalReleaseComObject を使う人が多いですが、これは場合によっては危険です。
$power に $null を入れて [System.GC]::Collect() するのが良いと思います。

[SAMUSAMUN]

ご回答ありがとうございます。
$power.Runに変更し、試してみましたが、下記エラーが出てきてできません。
これは、また別のことが関係して出ているエラーでしょうか。
【エラー】
$power.Run "macro1",x
の後に式が存在しません。

$power.Run "macro1",x
式またはステートメントのトークン'x'を使用できません。

[yureighost]

失礼。
上で$powerとして書いておきながら何故か下で$book.Runと書いてしまいました。
Zuishinさんの言っている通り、$power.Runが正しいです。

[Zuishin]

$power.Run はコマンドレットではなく COM メソッドなので呼び出し方が違います。$power.Run "macro1" x ではなく、$power.Run("macro1", $x) です。

[SAMUSAMUN]

何度も申し訳ございません。
$power.Run("macro1", $x)に変更し、実行すると、
型は ByRef であってはなりません
と出てくるのですが、ご教授いただけないでしょうか。
よろしくお願いいたします。

[Zuishin]

https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/byref-argument-type-mismatch

これじゃないですか？
エラーメッセージにヒントがあると思うので正確に、繰り返しますが正確に、読み落としなく、繰り返しますが、読み落としなく、よく読んでください。

[SAMUSAMUN]

ご丁寧にありがとうございます。
まだ解決はしてませんが、参考に考えてみます。

[Zuishin]

考える前にエラーメッセージを正確に読みましょう。という意見です。リンク先を読めばわかると思いますが、マクロ側の問題だと思います。

これだけ繰り返して強調しても読まないことに驚きを隠せません。

[SAMUSAMUN]

言葉足らずで申し訳ございません。
上記リンクを拝読しましたが、理解が追いついていないため、
まだ解決はしていませんでした。
ありがとうございます。

[Zuishin]

上記リンクはともかく、くどくどと「正確に読んでください」と言ったのはエラーメッセージです。これを正確に(ななめ読みでなく)読めばどこで何が間違っているか書いてあると思います。

[SAMUSAMUN]

ありがとうございます。
マクロ側でByRefでない型で受け取るのだと考えましたが、
間違えているみたいなので、もう一度正確に読んでみます。
何度もご教授いただきまして大変感謝しております。

[yureighost]

ちなみにpowershell(環境は7)でPowerPoint.Application.Runの引数形式を判定すると
SAFEARRAY(Variant)だとわかるのですが、これを作成するのが難しすぎてやや断念気味です。
$power = New-Object -ComObject PowerPoint.Application
$power.run

OverloadDefinitions
-------------------
Variant Run (string MacroName, SAFEARRAY(Variant) safeArrayOfParams)

冗長になりますがExcelマクロを介して、
PowerPointを呼べば、VBAのVariant型が引数なだけなので障害が少ないと思います。
どうしても難しい場合はそちらもご検討の程を。

[SAMUSAMUN]

ご丁寧にありがとうございます。
ご教授いただいた方法を２つとも検討してみます。

Answer 1

Zuishinさんやtosiさんの回答を参考に、横から私も試してみた所、

• $power.runはなぜか実行できない(なぜでしょう・・・)
• $book.Application.Runなら実行OK

という状態でした。

---

Application.runの定義は
System.Object Run(string MacroName, [ref] Params System.Object[] safeArrayOfParams)
と出てきますが、第二引数からは「Params(可変長引数)」なので0個～複数個渡せます。(.net仕様)
当然ですが何個渡すかは、PowerPoint側マクロ引数の数に依存します。
提示ソースですと不一致ですので、無効な要求です。Sub または Function が定義されていませんとなります。

---

単にRun("macro1")としても、どのスライドのマクロか特定できないので、

$book.Application.Run("test.pptm!macro1")

等とすると良いようです。
・・・と書いたものの、特定できる事もあるようなので詳細は分かりません。

Comments

[SAMUSAMUN]

ご回答ありがとうございました。
ご指摘いただいた通りにすると実行することができました。
大変ありがとうございます。
皆様よりたくさんのご指摘いただきましたが、解決したということで、
ベストアンサーとさせていただきます。

Answer 2

これでどうですか。

#(Test_Sample_Miniature)
$file = "C:Users/Documents/sample.pptm"
$power = New-Object -ComObject PowerPoint.Application
$x = "a"
try {
   $book = $power.Presentations.Open($file)

   $book.Application.Run("macro1",$x)
　　#$book.Application.Run("macro1") #<---ダメな時はこちらで
   $book.Close()
} finally {
   $power.Quit()
  [System.Runtime.InteropServices.Marshal]::FinalReleaseComObject($power) | Out-Null
  [System.Runtime.InteropServices.Marshal]::FinalReleaseComObject($book) | Out-Null
}
[GC]::Collect()

Comments

[SAMUSAMUN]

ありがとうございます。
$book.Application.Run("macro1",$x)
$book.Application.Run("macro1")
両方試してみましたが、
無効な要求です。Sub または Function が定義されていません。
と出てくるようです。

[tosi]

そうですか。
標準モジュールへ下記を追加して動かしたら、此方では動作しました。
Sub macro1()
MsgBox ("test")
End Sub
または、
Sub macro1(ByRef xxx As String)
MsgBox ("test" & " - " & xxx)
End Sub
(-環境-)
PowerPoint2010(14.0.6203)/Windows10Pro/マクロセキュリティー系抜く
(-参考-)
http://officetanaka.net/excel/vba/error/compilation_error/error_12.htm

[SAMUSAMUN]

ご丁寧にありがとうございます。
マクロ側の問題とご指摘もいただきましたので、
上記、マクロも試してみようと思います。