現在下記マクロでpdfに保存しているのですが、マニュアルで保存するときに出る【最小サイズ】で保存するにはFileFormat:=ppSaveAsPDFをどのように変更したらいいでしょうか。
現状【通常サイズ】で保存となっています。
パワーポイントバージョン2013
windows10の環境となります。
よろしくお願いいたします。
Sub アクティブファイルをPDFで保存()
Dim full_path As String
Dim file_name As String
With ActivePresentation
full_path = .Path
file_name = fileNameWithoutExtension(.Name)
.SaveAs _
fileName:=full_path & "\" & file_name & ".pdf", _
FileFormat:=ppSaveAsPDF
End With
End Sub
Function fileNameWithoutExtension(ByVal fileName As String) As String
Dim pos_dot As Long
''拡張子を取り除くため「.」の位置を後から探す
pos_dot = InStrRev(fileName, ".")
''拡張子を取り除いたファイル名を返す
fileNameWithoutExtension = Left(fileName, pos_dot - 1)
End Function
No.2ベストアンサー
- 回答日時:
何故、Quality:=xlQualityMinimumを指定しているの?
Excelマクロでの指定なら解るけど。
引数としてのQualityはないので、Intentの指定で印刷品質はなく
画面用として質を落としてファイルサイズを小さくします。
Excel, Word, PowerPointによるPDF出力の違いを確認してね。
http://cup.sakura.ne.jp/exl/pdf_out.htm#powerpoi …
訂正箇所
Quality:=xlQualityMinimum
を
Intent:=ppFixedFormatIntentScreen
にする。
No.1
- 回答日時:
Presentation.SaveAs メソッドでのPDFファイルの指定はなく、
Presentation.ExportAsFixedFormat メソッドのほうを使えば、
PpFixedFormatIntentでppFixedFormatIntentScreen を指定する
ことができます。
https://docs.microsoft.com/ja-jp/office/vba/api/ …
ありがとうございます。
下記で試したのですが名前付き引数が見つからないとのエラーがでてしまいます。
修正法ご教示いただけませんでしょうか?
Sub pdfに保存()
Dim full_path As String
Dim file_name As String
With ActivePresentation
full_path = .Path
file_name = fileNameWithoutExtension(.Name)
.ExportAsFixedFormat _
Path:=full_path & "\" & file_name & ".pdf", _
FixedFormatType:=ppFixedFormatTypePDF, Quality:=xlQualityStandard
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 2 2022/11/18 15:34
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
pdfをvbaで開いて、さらにサイズを指定する
Excel(エクセル)
-
エクセルVBAを使用し、指定のパワーポイントをPDF保存する方法
Excel(エクセル)
-
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
-
-
4
エクセルでエラーが出て困っています。
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
8
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
9
エクセルVBAでPDFを作成したい
Visual Basic(VBA)
-
10
PDFファイルのページサイズ変更をしたいのですが
PDF
-
11
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
12
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
13
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
14
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
15
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
16
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
17
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
18
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
19
VBAを何回も作り直して、容量が増えた
Excel(エクセル)
-
20
ヘッダー
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
名前をつけて保存した後、元の...
-
PDF "最小サイズ"で保存するマクロ
-
ダウンロードしたexe ファイル...
-
質問です。 PC版Lineでトークル...
-
プリントスクリーンを押し、グ...
-
photoshopのブラシの保存場所や...
-
スプレッドシート重たい
-
autucad2014LT を使用中エラー...
-
PDFファイルで保存できない! ...
-
Photoshopのバッチ処理で保存ダ...
-
mp4ファイルの保存方法
-
セルの値を使ってファイルを保存
-
ファイルをダウンロードした時...
-
irvineで
-
PDFファイルの保存日時の変...
-
PDF の編集
-
Craving Explorerで保存したフ...
-
ラベル屋さんの文字化けunicode
-
exeファイルの中身を見ることは...
-
フォルダは残してファイルだけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
名前をつけて保存した後、元の...
-
ダウンロードしたexe ファイル...
-
PDF の編集
-
PDF "最小サイズ"で保存するマクロ
-
Premiere Proで書き出しをする...
-
mp4ファイルの保存方法
-
PDFファイルの保存日時の変...
-
ホームページビルダー 21 sp で...
-
ファイルをダウンロードした時...
-
Power DVDを日本語化したい
-
イラストレータの別名保存アク...
-
質問です。 PC版Lineでトークル...
-
Mozilla Thunderbirdの添付ファ...
-
irvineで
-
スプレッドシート重たい
-
Auto-CAD 複数ファイルを一度に...
-
Photoshopのバッチ処理で保存ダ...
-
ラベル屋さんの文字化けunicode
-
Craving Explorerで保存したフ...
-
電子帳簿保存法について
おすすめ情報
訂正です
Quality:=xlQualityStandard部分は
Quality:=xlQualityMinimumの誤りでした。