現在下記マクロで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(エクセル)
-
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
-
-
4
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
エクセルVBAでPDFを作成したい
Visual Basic(VBA)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
9
エクセルでエラーが出て困っています。
Excel(エクセル)
-
10
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
11
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
12
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
-
13
エクセルvbaでdocuworksprinterの出力先を設定
Visual Basic(VBA)
-
14
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
15
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
16
マクロで、次のコードへ行く前に時間をおくにはどうしたらいいのでしょうか?
その他(Microsoft Office)
-
17
アクセスのレポートをPDF化する際のサイズダウン
その他(データベース)
-
18
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
19
PDFファイルのページサイズ変更をしたいのですが
PDF
-
20
Excel マクロ 画像をリンクせずかつ圧縮して貼りつける方法を教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
名前をつけて保存した後、元の...
-
クリップボックスで動画を保存...
-
外付けHDDなどのMP3を再生する...
-
ダウンロードしたexe ファイル...
-
mp4ファイルの保存方法
-
Craving Explorerで保存したフ...
-
windows で illustrator artwo...
-
SoundEngine Freeのようなフリ...
-
PowerDVDでキャプチャした静止...
-
写真など画像ファイルにWINDOWS...
-
最初からUSBにデータを保存したい
-
exeファイルの中身を見ることは...
-
windowsでpkgファイルを開きた...
-
MacのExcleですが ”Excelのオプ...
-
右クリックから切り取り、コピ...
-
圧縮ファイル 解凍すると中身が...
-
フォトショップでのアイコン作成
-
フォルダは残してファイルだけ...
-
パーフェクトビューワー SDカ...
-
元々パソコンに入っているペイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
名前をつけて保存した後、元の...
-
ダウンロードしたexe ファイル...
-
pdfファイルをjpgに変換
-
PDF "最小サイズ"で保存するマクロ
-
ホームページビルダー 21 sp で...
-
mp4ファイルの保存方法
-
irvineで
-
Power DVDを日本語化したい
-
ファイルをダウンロードした時...
-
Mozilla Thunderbirdの添付ファ...
-
PDFファイルの保存日時の変...
-
イラストレータの別名保存アク...
-
聞々ハヤえもんというサイトが...
-
Macのスクリーンショット保存す...
-
質問です。 PC版Lineでトークル...
-
エクセルのマクロについて教え...
-
Pagesファイルが開かなくなった。
-
ラベル屋さんの文字化けunicode
-
Irvine でフォルダごとにダウン...
-
Auto-CAD 複数ファイルを一度に...
おすすめ情報
訂正です
Quality:=xlQualityStandard部分は
Quality:=xlQualityMinimumの誤りでした。