No.2ベストアンサー
- 回答日時:
#1です
記憶が多分だったので、確かめる為、休憩時間にサンプルを作りました。
Microsoft PowerPoint xx.0 Object Library を参照設定 必須
参考
Sub PPT_pdf()
Dim ppt As New PowerPoint.Application
Dim pres As PowerPoint.Presentation
Dim save_path As String, file_name As String
Dim Target As String
Target = Application.GetOpenFilename("PowerPoint,*.pptx")
If Target = "False" Then Exit Sub
Set pres = ppt.Presentations.Open(Target, WithWindow:=MsoTriState.msoFalse)
With pres
save_path = CreateObject("WScript.Shell").SpecialFolders("Desktop")
file_name = "Test"
.ExportAsFixedFormat _
Path:=save_path & "\" & file_name & ".pdf", _
FixedFormatType:=ppFixedFormatTypePDF
End With
ppt.Quit
MsgBox ("PDF出力しました")
End Sub
デスクトップにTest名で保存されるはずです。。
No.1
- 回答日時:
こんにちは、
PowerPoint側を操作するので、
Microsoft PowerPoint xx.0 Object Library を参照設定して
Presentationをアクティブにし
Presentation.ExportAsFixedFormatメソッドで実行できるかと思います。
例:
ActivePresentation.ExportAsFixedFormat _
Path:=フルパス & "\" & ファイル名 & ".pdf", _
FixedFormatType:=ppFixedFormatTypePDF
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PDF エクセルのVBAでファイルをpdfで保存するとソフトによっては開けなくなる 3 2022/06/08 10:20
- PDF パワポをPDFにしてパスワードをかける方法 5 2022/04/15 16:14
- Windows Vista・XP PC パソコンのダウンロードについて 1 2022/04/26 16:27
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Excel(エクセル) エクセルで保存時に全部のシートの最終行をコピーして数値で貼り付けたい 3 2023/08/14 15:49
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- PDF PDFの回転と保存 3 2023/01/16 15:02
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
ExcelVBAにて既に開かれているPowerpointをアクティブにするには?
Excel(エクセル)
-
【VB.NET】 パワポ操作を非表示で
Visual Basic(VBA)
-
PDF 最小サイズ"で保存するマクロ"
PowerPoint(パワーポイント)
-
-
4
VBAで既存のパワポのファイルを開くには?
Access(アクセス)
-
5
EXCEL-VBAからPowerPointファイルを開いてPDF印刷する方法?
その他(Microsoft Office)
-
6
PowerPoint(.pptx)ファイルをPDFに変換するスクリプトについて。 調べてみたところ、
Visual Basic(VBA)
-
7
パワーポイントのVBAでテキストボックスに値を変更させたいです
Visual Basic(VBA)
-
8
エクセルのVBAで開いているパワーポイントのファイルを印刷
Visual Basic(VBA)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
Excel実行時エラー-2146959355?
IT・エンジニアリング
-
11
Excel VBAでPDFファイルをMicrosoft Print to PDFで出力したい
Visual Basic(VBA)
-
12
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
13
エクセルマクロにてパワーポイントのリンク更新をさせたい
Excel(エクセル)
-
14
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
15
PowerPointVBAでスライドマスター上での編集
PowerPoint(パワーポイント)
-
16
VBA:小数点以下の数字を取得できる関数は?
Visual Basic(VBA)
-
17
パワーポイントをエクセルファイルへ
PowerPoint(パワーポイント)
-
18
パワーポイントのスライドを取り出して保存するには?
PowerPoint(パワーポイント)
-
19
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
20
【PowerPoint VBAの高速化】
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】各セルをダブルク...
-
QRコードを保存する方法を教え...
-
メールをwordに変換して保存したい
-
Access VBA でHTML文を表示したい
-
パソコン内臓カメラでの撮影方...
-
強制終了で消えたメモ帳の内容...
-
エクセルVBAを使用し、指定のパ...
-
プロダクトキーシールをきれい...
-
Webページ上で飛び飛びの文章を...
-
先日google document の文章をU...
-
Google マップのマイマップの移行
-
スケブの管理方法。
-
グーグルドライブ、勝手に共有...
-
line
-
スクリーンショットをエクセル...
-
JPEGの編集(一部を切り取り保...
-
GoogleドライブOCR機能が使えな...
-
【Wordpress】headerの上に文字
-
illustratorで作ったロゴをWeb...
-
アニ文字みたいなのをパソコン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【ExcelVBA】各セルをダブルク...
-
チャットをword に保存しプリン...
-
QRコードを保存する方法を教え...
-
Outlook:予定表アイテ...
-
メールをwordに変換して保存したい
-
エクセルVBAを使用し、指定のパ...
-
googlemapの保存済みリストが消...
-
パソコン内臓カメラでの撮影方...
-
Access VBA でHTML文を表示したい
-
Google マップのマイマップの移行
-
強制終了で消えたメモ帳の内容...
-
Webページ保存によるテキストボ...
-
プロダクトキーシールをきれい...
-
最近プリクラを撮るとピクトリ...
-
プリクラについてです 最後にメ...
-
先日google document の文章をU...
-
Flip Clipの動画保存方法を教え...
-
パソコン版LINEのデータ保存先...
-
WINDOWSのメモ帳が文字化け~~~
-
七宝焼きの汚れの落とし方
おすすめ情報