Outlookでファイル(PowerPoint)をPDFファイルに変換し添付するマクロを作成したい

Question

前提・実現したいこと

社内でOutlook2016を使用しています。
通常Outlookに[添付ファイル]ボタンがありファイルを選択しますが
今回、添付ファイルを選択してファイル(PowerPoint)を
PDFファイルに変換して(パスワード付)
添付するようなマクロボタンを作成したいです。

添付ファイルを選択できるように
ExcelVBAのようにFileDialogをまずは使用しようと考えたのですが
調べてみると使用できない？みたいでExcelオブジェクトを使用する
方法などが記載されていることが多いのですが
実際に参考になるソースをコピーしたら
ExcelのダイアログなのでExcelが表示されてしまうので
できれば、OutlookVBAで別の方法があれば教えていただきたいです。

試したこと

下記他のサイトから参考にしました。
Public Sub TestFileDialog()
Dim otherObject As Excel.Application
Dim fdFolder As office.FileDialog
Set otherObject = New Excel.Application
※※otherObject.Visible = False　※※
Set fdFolder = otherObject.Application.FileDialog(msoFileDialogFolderPicker)
fdFolder.Show
Debug.Print fdFolder.SelectedItems(1)
otherObject.Quit
Set otherObject = Nothing
End Sub

※※この部分で、Excelを非表示にしているので
実際にfdFolder.Showの部分でもダイアログが隠れて見えないので
otherObject.Visible = true　※※
にしたところ、Excelが表示されてしまうので
あまり見た目上はうまくいってない気がします。

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

Outlook2016

Answer 1

以下、ご参考まで。私の環境ですと、ダイアログのみ表示されます。

https://outlooklab.wordpress.com/2016/05/21/outlook-%E3%81%A7%E3%83%95%E3%82%A9%E3%83%AB%E3%83%80%E9%81%B8%E6%8A%9E%E3%81%AE%E3%83%80%E3%82%A4%E3%82%A2%E3%83%AD%E3%82%B0%E3%82%92%E8%A1%A8%E7%A4%BA%E3%81%99%E3%82%8B%E3%83%9E%E3%82%AF%E3%83%AD/

なお、上記URLにあるコードはWordを利用していますが、Excelでも同じことが可能です。

Comments

[alma0925]

コメントありがとうございました。参考URLもありがとうございました。やはり、ファイル選択ダイアログはOffice共通のを使用するしかないんですね。教えていただいた参考URLを元にその方法で進めてみます。

[hex309]

ひとまず、疑問が解消されたのであれば、「解決済み」にしていただければ

[alma0925]

他の方法も一応知りたかったので募集してたんですが…
解決済みにします