エクセルマクロでPDF表示をしたい

手作業で、名前を付けて保存をする時に拡張子をPDFにすると、保存したPDFが表示されます。
マクロの記録で、作成したプログラムを実行すると、保存はされますが、保存後のPDFが表示されません。ネットでPDF表示とかPDF出力を検索しても、今回の求めている記述ではありません。
私はシートをPDF形式で保存、保存されたPDFファイルを自動で開いて確認をしたいです。
PDF保存は、マクロの記録で出来ております。
保存後、そのPDFファイルが自動で開く記述が知りたいです。
どうか、無知な私に教えて下さい。

No.2 ベストアンサー 回答者： siffon9 回答日時： 2016/07/17 12:42

こちらの環境(Excel2016)でマクロで保存しても表示します。

記録されたマクロは下記です。
OpenAfterPublish:= True を Falseにしたら表示しなくなりました。

---------------------
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\○○\Desktop\test.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

この回答へのお礼

ありがとうございます。
私の記録されたマクロとほぼ同じで分かりやすかったのでベストアンサーにさせて頂きます。

お礼日時：2016/07/17 13:03

No.1 回答者： GooUserラック 回答日時： 2016/07/17 12:36

開くだけならば関連付けで

------------------------------------------------------------
Sub Sample()
Dim WSH
Set WSH = CreateObject("Wscript.Shell")
WSH.Run Chr(34) & "C:\××\○○.pdf" & Chr(34), 3
Set WSH = Nothing
End Sub
------------------------------------------------------------
「C:\××\○○.pdf」は適当に直してください。

この回答へのお礼

素早いお返事ありがとうございます。
No2の方の回答が、今の記述にほぼ同じだったのであちらをベストにさせて頂きます。
お知恵ありがとうございました。

お礼日時：2016/07/17 13:04