EXCELから作成したPDFの表示について（VBA、マクロ）

EXCELで複数シートを作成 → 下記のマクロで一気にPDFファイルを
作成して複数の人と共有しています。

開く人のPDF設定で表示が「100％」になっている場合は
100％で開くことが出来ると思うのですが、
もし開く人の設定が「120％」になっていた場合でも
開いた時に100％になるような指定が、PDFを作成する際に設定することは可能でしょうか？

もし可能であれば、「ページ幅に合わせて表示」などの方法も知りたいです。

Sub savePDF()

Dim mySheet As String
Dim sCount As Integer
Dim sName As String

If MsgBox("PDFファイルを作成します。よろしいですか？", vbYesNo) = vbNo Then Exit Sub

'ファイル名に追加
sName = InputBox("年月を入力してください", "確認")

'シートの枚数をカウント
sCount = Sheets.Count

For i = 1 To sCount
Sheets(i).Select
mySheet = ActiveSheet.Name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"\最新データ\" & sName & "_" & mySheet & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Next

MsgBox "完了しました"

End Sub

何か情報不足などありましたら、
お手数をお掛けして申し訳ございませんが教えて頂けますようお願い致します。

環境：EXCEL2010/Windows10

行動規範の内容に同意します

回答4件

自己解決

環境的に難しそうです。

投稿2017/05/12 02:04

orange_drop

総合スコア25

PDF保存前にPageSetup.Zoomを指定することで保存倍率を変えることはできますが、それはあくまでも「今見ている文書をどのくらいの倍率で保存するか」であり、「見る人がどれくらいの倍率で見たいか」とは別です。

Acrobat Reader 側の振る舞いを変えるには、そのマシンの設定を変更するしかなさそうです。

別案ですが、ブラウザやコマンドラインからzoom指定で文書を開く方法を記載します。

・ブラウザURLに以下を入力
file:///d:/hoge.pdf#zoom=100
（社内インフラWebなどでPDFのリンクを作る場合でも同様に可能 http://.../hoge.pdf#zoom=100 ）

・コマンドプロンプトで以下を入力
AcroRd32.exe /A zoom=100 d:/hoge.pdf

手間ですけど・・・

投稿2017/04/17 07:00

takito

総合スコア3116

orange_drop

2017/04/17 08:29

お返事を頂きまして、ありがとうございます。やはりAcrobat Reader側を変更しようとすると、単純に変更することは難しそうですね。別案のご提案ありがとうございます。私の知識不足のためすぐに理解出来ていないので、もう少し調べながら検証させて頂きたいと思います。

行動規範の内容に同意します

Adobe Acrobat（Reader ではない、編集ができる有償ソフトウェアの方）であれば、PDF 文書のプロパティで表示倍率のデフォルトを指定できる、ので、プロパティが書き出せれば不可能ではないのでしょうが、Office からの PDF output でプロパティを設定できるという情報は無いですねえ…

投稿2017/04/17 05:19