PowerPoint(.pptx)ファイルをPDFに変換するスクリプトについて。
調べてみたところ、
以下のコードをみつけました。
動作はうまくいきました。
ここに追加したいのですが、
元のパワポファイルのプロパティを
削除してPDFに変換したいです。
Option Explicit
Const ppSaveAsBMP = 19
Const ppSaveAsJPG = 17
Const ppSaveAsPNG = 18
Const ppSaveAsOpenXMLPresentation = 24
Const ppSaveAsPDF = 32
Const ppSaveAsPresentation = 1
Dim fname, ppt
For Each fname In Wscript.Arguments
Set ppt = GetObject(fname)
ppt.SaveAs _
GetFNameFromFStr _
(ppt.FullName)+".pdf", ppSaveAsPDF
ppt.Close
Next
Wscript.Echo "完了"
Function GetFNameFromFStr(sFileName ) Dim sFileStr' As String
Dim lFindPoint 'As Long
Dim lStrLen' As Long
lFindPoint = InStrRev(sFileName, ".")
sFileStr = _
Left(sFileName, lFindPoint - 1)
GetFNameFromFStr = sFileStr
End Function
set ppt~の次行へ以下を追記したところ
エラーになりました。
ppt.RemoveDocumentInformation(ppRDIDocumentProperties)
エラー:この変数は宣言されていません
コード:800A01F4
実行時エラー
調べたのですがわかりませんでした。
どなたか詳しい方、
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- Excel(エクセル) このコードに追記事項の仕方を教えて下さい。 以下のコード内容に出てくる。セルH3が空白の場合、エラー 4 2023/08/03 00:22
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- その他(プログラミング・Web制作) Excel vbaでフォルダー内のpptをpptxにdocをdocxに変換 6 2022/09/01 21:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/26 17:13
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでFormat がうまく使えない
-
Debug Assertion Failed?
-
NET USE コマンドでエ...
-
Access ADOで文字列を日付型へi...
-
CreateObjectでエラー
-
WNetAddConnection*()の使い方
-
PowerPoint(.pptx)ファイルをPD...
-
ACCESS VBAのOpenForm書き方
-
実行時エラー'1004': アプリケ...
-
vbaでファイルを開くパス名に変...
-
POV-Ray についての質問です!
-
【ASP】500エラーが発生する【A...
-
シェルスクリプトの実行エラー...
-
W3CのCSS検証エラーについて
-
VBAで印刷するとエラーになって...
-
やはり図形のクリアで実行時エ...
-
ショートカットファイルが開け...
-
DVD-Rなのに再書き込みや削除が...
-
jw cadの名前をつけて保存・・...
-
メモ帳を保存せずに誤って閉じ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでFormat がうまく使えない
-
Debug Assertion Failed?
-
NET USE コマンドでエ...
-
Web.Config 構成ファイルのエラー
-
vbaでファイルを開くパス名に変...
-
エラーコード 70 「書き込み...
-
Excel ファイルに保存すると実...
-
POV-Ray についての質問です!
-
シェルスクリプトの実行エラー...
-
不明なソフトウェア例外(0xe06...
-
Access ADOで文字列を日付型へi...
-
ホームページビルダーの”全体の...
-
C# HttpWebRequestのエラーにつ...
-
ASP.NETでのランタイムエラー?...
-
EXCELを開くとエラーがでます。
-
【ASP】500エラーが発生する【A...
-
LTspiceのTime Stepエラーについて
-
VBAで印刷するとエラーになって...
-
ACCESS VBAのOpenForm書き方
-
Eclipseでのエラー検出の機能に...
おすすめ情報
ご回答ありがとうございます。
申し訳ありませんが、今回は
スクリプトで使いたいので、
コードの記述や動作がわかる方、
ご教授よろしくお願いします。