VBAでのPDF作成時にフォントを埋め込まない様にしたい

Question

こんにちは。

現在、office系ファイルをPDF化するマクロを組もうと考えています。

この時、何も考えずに.ExportAsFixedFormatメソッドでPDF化するとフォントが埋め込まれてしまいます。

これを埋め込まれないようにしたいので、BitmapMissingFontsというそれっぽいパラメータをFalseに

してみましたが何も変わりませんでした。

コードは以下の通りです。（下記はWord用ですが、Excelでも組立を予定しています）

---

Private Sub 保存_Click()

Dim Path As String

Dim WSH As Variant

Dim myfile As String

' 保存先：デスクトップ

Set WSH = CreateObject("Wscript.Shell")

Path = WSH.SpecialFolders("Desktop") & ""

'ファイル名

myfile = Format(Date, "yymmdd") & "書類A.pdf"

ActiveDocument.ExportAsFixedFormat _

OutputFileName:=Path & myfile, _

ExportFormat:=wdExportFormatPDF, _

OpenAfterExport:=True, _

OptimizeFor:=wdExportOptimizeForOnScreen, _

Range:=wdExportAllDocument, _

Item:=wdExportDocumentContent, _

IncludeDocProps:=False, _

KeepIRM:=False, _

CreateBookmarks:=wdExportCreateHeadingBookmarks, _

DocStructureTags:=True, _

BitmapMissingFonts:=False, UseISO19005_1:=False

End Sub

---

どこがおかしいでしょうか。

あるいは何か他のやり方があるでしょうか。

ちなみにこれは組織内で使用するので多数のユーザーを想定しています。

１クリックで、あるいは何かの処理に付随して統一設定のPDFを作成する予定です。

自分自身だけが使用するのでしたら、Acrobatアドオンや印刷設定を変えて埋め込みを回避できるのですが、、、。

以上です。是非宜しくお願いします。

Answer 1

junnny さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

VBA を使って Office アプリケーションで作成したファイルを PDF で保存する際に、フォントが埋め込まれないようにされたいということですね。

手元にある Excel 2010 で junnny さんが提示していただいたコードを使って調べてみたのですが、フォントを埋め込まないで PDF 化する方法については見つけだすことができなかったです。。

また、外部の情報を調べてみたのですが、具体的に作成方法が書かれているような情報も見つけることができませんでした。

VBA コードを工夫して作成することで実現は可能のような感じはするのですが。。

VBA コードの具体的な作成方法については、こちらのフォーラムよりも専門フォーラムである VBA フォーラムに質問を投稿してみると参考となる情報が集まりやすいかもしれません。

・ Visual Basic for Application (VBA)

※ 投稿される場合は同じように VBA コード全文を書いて投稿をお願いします。

せっかく質問をしていただいたのに、お力になれなくてすみませんが上記フォーラムも活用してみてくださいね。

作成方法について、何かよい情報をお持ちの方がいらっしゃいましたら、こちらのスレッドへの投稿もぜひお待ちしています。

Answer 2

大沢孝太郎さん

検討していただき、ありがとうございます。

またフォーラムを提示して頂きありがとうございます。

もしかしてこのコミュニティでVBAの質問をするのは場違いだったでしょうか。

もしそうならすみません。

とりあえず、ご提示のフォーラムに投稿してみました。

http://social.msdn.microsoft.com/Forums/ja-JP/54907eab-a986-4890-a4a8-a09598cd2e75/pdf?forum=vbajp

専門フォーラムとのことですので、今後はこちらで質問していこうと思います。

内容が重複していますので、本スレッドは回答済みとしました。

ありがとうございます。