Powerpoint for MacのVBAマクロで、Excelの置換文字列対応表にしたがって、スライド内の文字列を一括検索・置換したい

Question

前提・実現したいこと

Powerpoint for Macで、Excelに表組に書かれた置換文字列対応表にしたがって、スライド内の文字列を一括検索・置換したい。マクロで実現できればと思っている
近いイメージ：リンク内容

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

Powerpoint for MacでVBAを組みました。
文字列をパワーポイント内で少数指定して、全文検索し置換する、までは組むことができました。
パワーポイントVBA内でうまくExcelの参照設定ができていないためか、外部リソースであるExcelと連携することがうまくいきません。デバッグで、そこでストップしてしまいます。

①番号リストコンパイルエラー「ユーザー定義型は定義されていません」
参照設定したのにもかかわらず、Dim XL As New Excel.Application に対し
②ActiveX コンポーネントはオブジェクトを作成できません。
429エラー

 Set XL = GetObject(, "Excel.Aplication")

③実行時エラー '424'オブジェクトが必要です
など

該当のソースコード

文字列置換の後半部分は省略し、エクセルを読み込む部分を主に以下転記しました。

Sub Replacement() 'エクセル 表を用いて文字列置換

　Dim befword As String '置換前の文字列
  Dim repword As String '置換後の文字列

  Dim XL, XLBK As Object 
　Set XL = GetObject(ThisWorkbook.Path & "/text置換.xlsx").Application  'PPTファイルと同一フォルダにあるエクセルファイルを読み込みたい
　XL.Visible = False  'いちいちエクセルファイルが表示されるのを防ぎたいが、表示されてしまう
　XL.ScreenUpdating = False

　befword = XLBK.Worksheets(1).Range("A1")  '検索ワード
　repword = XLBK.Worksheets(1).Range("B1")  '置換ワード
  
〜〜〜文字列置換部分のコード〜〜〜

XL.Application.Visible = True '開いたままのエクセルを表示させたい
Set XL = Nothing 'エクセルを最後に解放する
End Sub

試したこと

①参照設定のobject libraryの確認（そもそも参照されてない可能性）
「Microsoft Excel 14.0 Object library」(パワポフォルダに既存で入っている、tbl拡張子のファイル。エクセル 側も同様の14.0バージョン) を発見し、チェックしました。
しかし、チェック後も、いくら他の参照設定項目をOn/Offしても、コンパイルエラー「ユーザー定義型は定義されていません」でつまづいてしまいます。

②対応するアドインの検索(なし)

③参照設定がうまくいかない場合はオブジェクトからの直接読み込みができるとのことで、CreateObject、GetObject関数を使ってみた

Dim XL As Object
Set XL = CreateObject("Excel.Application")
Dim XLBK As Object
Set XLBK = CreateObject("Excel.Sheet")
　'あるいはCreateObject("Excel.Workbook")

Rf)リンク内容

③オブジェクト定義や構文を適宜変更してみた

■　
Dim XL, XLBK As Object 
→ Dim XL, XLBK
→Dim XL As Excel.Aplication
→Dim XL As Variant
→Dim XL As New Excel.Application
→Dim XL As Excel.Application、　Set XL As New Excel.Application

■Dim XLBK As Object
→ Dim XLBK As Excel.Workbook

■Set XL = GetObject(ThisWorkbook.Path & "/text置換.xlsx").Application 'Excelは起動した上で走らせている
→Set XL = CreationObject(ThisWorkbook.Path & "/text置換.xlsx").Application
→
Set XL = GetObject("/Applications/Microsoft Excel.app/Contents/SharedSupport/Type Libraries/Microsoft Excel.tlb") 'オブジェクトライブラリーを直接読み込もうとしている

■Set XL = GetObject(ThisWorkbook.Path & "/text置換.xlsx").Application
→Set XLBK = XL.Workbooks.Open(ThisWorkbook.Path & "/text置換.xlsx")

rf)リンク内容
リンク内容
リンク内容
リンク内容
リンク内容
リンク内容



⑤参照設定が不要の可能性があるとのことで、ExecuteExcel4Macroを使用してみるがうまく読み込まない
そもそも処理が遅いようなので期待できない

befword = ExecuteExcel4Macro("ThisWorkbook.Path & "/" & [text置換.xlsx]Sheet1'!R1C1")



Rf)リンク内容


⑥エクセルを開くまで最も進行したのが、

Dim XL As Object
Set XL = CreateObject("Excel.Application")'⇦ここでエクセルを開くことはできる
 Dim XLBK As Object
Set XLBK = CreateObject("Excel.Sheet")'⇦ここでPowerpointもExcelもフリーズし強制終了してしまいますが、、
'エクセルの反応はするので、何らかのリンクはできているはずなのですが。。


　'エクセルを開いた上でSet XL = GetObject("Excel.Application")にするとすぐにフリーズします




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



Macbook Air：Mac OS Mojave　, 1.6GHz Intel Core i5, memory 16GB
Powerpoint for Mac(ver 15.33、office 365 サブスクリプション)
Excel for Mac(同上)

Comments

[meg_]

コードは「コードの挿入」で記入しましょう。また検証可能（実行可能）なコードを載せた方が回答がつきやすくなります。（検証不可なコードですと回答することが難しいです）

[hSpringsteen]

初質問で未熟な記載でした。修正いたしました。長文につき、途中で文章が途切れていた部分も補完いたしました。

Answer 1

⑥で出来そうとのことなので、下記でブックを開けませんか？

Dim XL As Object
Set XL = CreateObject("Excel.Application")

XL.Visible=True
XL.Workbooks.Open "Excelブックのパス"

あとはExcel vbaの記述でOKかと思います。

Comments

[hSpringsteen]

ご検討・ご回答ありがとうございます。
助言の通り、パス名を具体的に入れた上で(フルパスも試す)、コードを走らせてみましたが、
確かに2-3行目でエクセルのメニュー画面までは問題なく立ち上がります。
ところが４行目の部分でエラー、フリーズが起こります
「問題が発生したためExcelを終了しました」→強制終了
「この文書のリンクされたオブジェクトまたは埋め込みオブジェクトはまだ更新中です。続行しますか?」→Powerpointも強制終了

構文エラーというわけでもなさそうですし、試行錯誤した上で、解決策がわかりません。

[hSpringsteen]

ちなみに
https://www.excelspeedup.com/workbookopen/を参考に、
エクセルファイルが存在していること、パス転記は問題ないことは確認済みです。。

[meg_]

普通にそのエクセルファイルを開くことは出来ますよね？(エクセルファイルに問題がないことの確認です)

[hSpringsteen]

そうですね。そのxlsxファイルは単体で綺麗に開くことができます。

もう少し進めて検証しました。
他の重いプログラム動作後は、マクロすら立ち上がらないことがあるため、
Macを一旦再起動した状況で(メモリを解放したつもり)、
以下を走らせました。

Dim XL As Object
Dim XLBK As Object
Set XL = CreateObject("Excel.Application")
XL.Visible = True
Set XLBK = XL.Application.Workbooks.Open ("●●") ●はパス名

すると、エクセル立ち上げまでは問題なく、
一瞬だけ目的のエクセルファイルも立ち上がった後、前述の「問題が発生した」強制終了に至ります。
ファイルへのアクセスが、梨の礫、というわけではなさそうです。
アクティビティモニタを観察してますが、特にメモリを食ってフリーズ、というわけではなさそうです。

[meg_]

XL.Application.Workbooks.Openではなく、XL.Workbooks.Openで動作しませんか？(XLがアプリケーションオブジェクトそのものかと)

[hSpringsteen]

結論は同じく、強制終了でした。
XL.Application.Workbooks.Openの場合一瞬開きましたが、XL.Workbooks.Openでは開いていないように見えました
(ファイルが一瞬開くかどうかは、メモリを食ってきているのも一因かもしれませんが・・)

[meg_]

そうですか。当方、環境がWindowsのため私のコードでパワポマクロからエクセルブックを開くことが出来るのですが、Macでは違うのかもしれませんね。

[hSpringsteen]

なるほど、ありがとうございます。
一瞬はファイルを開くことができたのを光明に、何らかの解決手段はあると考え、粘ってみたいと思います。
ちなみに、今回のプログラムは「エクセルの参照設定」をしなくてもオブジェクトとして開くことのできるものだと思っていますが、Windowsでも参照設定を切ってファイルを開くことは可能なのでしょうか？
もし参照設定が必要ということであれば、Macの場合はそこがネックなのかもしれません。。
＊Powerpoint Macroではマクロや参照設定をいちいち保存できない環境なので、やや面倒です

[meg_]

下記2つの参照設定の状態で動作しました。
・Visual Basic For Applications
・Microsoft PowerPoint 15.0 Object Library

[imihito]

横から失礼しますが、Macのサンドボックスの影響は無いでしょうか？
https://docs.microsoft.com/ja-jp/office/vba/api/overview/office-mac

また、Addで新規ブックを作成できれば、ファイルアクセスに問題がありそう、と原因の切り分けもできそうです

[hSpringsteen]

みなさま、ありがとうございます。おそらくsandboxの問題でした。
sandbox自体初めて知った概念で、調べました。当アプリケーションのある階層下のフォルダがアクセス許可されているようであり、
Officeソフトに関しては/Users/●●/Library/Group Containers/UBF8T346G9.Office/User Content.localized/ 内にエクセルファイルを置いたことで、無事にプログラムが走りました！
Macならではのセキュリティの問題だったのですね、、目から鱗でした。
置換も無事にできそうであり、完成へ向け邁進いたします。