エクセル2010 マクロでPDF保存

Question

大量のデータをPDF保存するのに、わざわざ名前を付けて保存からPDFを選んで～をやると時間がかかるのでページ内にフォームボタンを作りクリックでPDF保存できるようなマクロを作りたいのですが、作られている方いらっしゃいますでしょうか？

CutePDFWriterを使っては教えてもらえたのですが、できれば2010搭載のPDF保存機能を使ったやり方があればアドバイスいただけないでしょうか？

やりたいイメージは、エクセルの保存したいシート上にフォームのボタンを配置し、ぽちっとクリックすると保存場所と名前を指定するウィンドウが出てきて、その時点ですでに拡張子は「ふぁいる名.PDF」となっている感じが、大体のイメージです。よろしくお願い致します。

Answer 1

こんにちは。

方法は色々ありますが、下記のようなコードでダイアログを表示できるかと思います。

Public Sub Sample()

  Application.Dialogs(xlDialogSaveAs).Show "ふぁいる名", &H39

End Sub

Public Sub Sample2()

  Dim v As Variant

  v = Application.GetSaveAsFilename("ふぁいる名", "PDF (*.pdf), *.pdf")

  If v <> False Then ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=v, Quality:=xlQualityStandard, OpenAfterPublish:=True

End Sub

Public Sub Sample3()

  Application.CommandBars.ExecuteMso "FileSaveAsPdfOrXps"

End Sub

Answer 2

ありがとうございます。できました。

しかも、何パターンも方法あるんですね。

感謝！！