質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.23%

powershellが実行できません。

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 613

SAMUSAMUN

score 31

前提・実現したいこと

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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • SAMUSAMUN

    2020/08/27 15:11

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

    キャンセル

  • yureighost

    2020/08/27 17:21

    ちなみに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

    2020/08/28 00:32

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

    キャンセル

回答 2

checkベストアンサー

+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")


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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2020/08/28 20:29

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

    キャンセル

0

これでどうですか。

#(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()

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2020/08/27 14:05

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

    キャンセル

  • 2020/08/27 14:18 編集

    そうですか。
    標準モジュールへ下記を追加して動かしたら、此方では動作しました。
    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

    キャンセル

  • 2020/08/27 14:37

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

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.23%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る