- ベストアンサー
PowerPointのJPEG書き出し時のファイル名
PowerPointのプレゼンテーションファイルから スライドをJPEG画像ファイルへ書き出す作業を しています。 （別名で保存or名前をつけて保存→JPEG形式） 50枚のスライドがあるとすると、JPEGファイルは、 「スライド1.JPG」～「スライド50.JPG」と ファイル名がつきます。 これを、 「スライド001.JPG」～「スライド050.JPG」と したいのです。 現在は、一度JPEGに書き出してから 手動で修正、もしくは リネームソフト（フリーソフト）で 修正しています。 スライドの枚数が多い時など、大変ですし、 リネームソフトも使い勝手が良いとはいえません。 使用しているPowerPointのバージョンは Windows版 PowerPoint2000 Mac版 PowerPoint2001 です。 PowerPointの設定変更などで対応できないでしょうか。 リネームソフトはMac版、Win版ともにいくつか 試しましたが、なるべくリネームソフトを 使用しない方法を探しています。 ご存じの方、よろしくお願いいたします。
- オフィス系ソフト
- 回答数3
- ありがとう数6
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (2)
- TTak
- ベストアンサー率52% (206/389)
Windows版 PowerPoint2000だけの例ですが、使えます。 少し難しい方法ですが、マクロを作ってそれをボタンに登録する例です。 まずメニューから、[ツール]＞[マクロ]＞[Visual Basic Editor]と選択して、起動したVisual Basicエディタのメニューから、[挿入]＞[標準モジュール]を選択します。次に、標準モジュールに以下のマクロをコピー＆ペーストで貼り付けます。 Sub jpg保存() On Error Resume Next Dim myC As Integer, myFolderPass As String, fCount As Integer Dim fs, f, f1, fc, s myFolderPass = "C:\My Documents\Mvc" ActivePresentation.SaveAs _ FileName:="C:\My Documents\Mvc.jpg", _ FileFormat:=ppSaveAsJPG Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(myFolderPass) Set fc = f.Files fCount = 0 For Each f1 In fc Name myFolderPass & "\" & f1.Name _ As myFolderPass & "\スライド" & Format(fCount, "000") & ".jpg" fCount = fCount + 1 Next MsgBox "保存が終わりました。" Set fs = Nothing Set f = Nothing Set fc = Nothing End Sub Visual Basicエディタを閉じ、再びパワーポイントのメニューから、[ツール]＞[ユーザー設定]とします。”コマンド”タブの”分類”のリストボックスの下の方に、「マクロ」があるので、それを選択すると、”コマンド”のリストの中に「jpg保存」があるはずです。これをドラッグアンドドロップしてコマンドボタンの適当な位置に配置します。これで、jpg保存ボタンができます。 ボタンを押すとスライドがMy DocumentsフォルダのMvcというフォルダに保存されます。フォルダへのパスは適宜変更してください。
お礼
ご回答ありがとうございます。 教えていただいた通りにマクロを設定して、操作しましたら、２枚目のスライドが「スライド001」となってしまい、その後のスライドが１つずつずれてしまいました。１枚目のスライドは「スライド050」と最終ページ（？）に飛んでしまいます。 私の写し間違いなのでしょうか。それとも元々のPowerPointの設定が悪かったのでしょうか。 マクロは全くの素人ですので、教えていただいた通りに操作するしか出来ませんでした。 あと少しでうまく行きそうなので「惜しい」です。１ページ目に空（から）のスライドを入れて調整する、という手もありますよね。 再度、ご助言いただけると大変ありがたいです。 よろしくお願いいたします。
- eugenk
- ベストアンサー率55% (292/522)
私も他のソフトでリネームしています。（調べたけどPowerPointの設定変更ではできないような気がします。） 私がやっている方法はViXでスライド1.JPG」～「スライド50.JPGを開き、表示→並び順→番号してスライドを番号順にします。 その次にスライドをすべて選択し右クリックから場前の変更で桁数などの条件をいれ「スライド001.JPG」～「スライド050.JPG」に変換しています。 あまり解決になってない気もしますが、これで比較的はやくかたずくとはおむのですが、 あまり変わらなかったらすみません。
お礼
ご回答ありがとうございます。 「ViX」を使ってみました。今使っているリネームソフトより操作感が良い感じです。今より作業が早く進みそうです。 ですが、上司はフリーソフトの利用をあまり快く思っていないため（ウィルス等の関係で）できればPowerPointだけで何とかならないかと思っていたのです。 「ViX」のインストールはネットワークから外した状態で、こっそり行いました（汗）。
お礼
ありがとうございました。 今度はうまくいきました。完璧です。 これを機に自分もマクロを勉強してみたくなりました。（初歩の初歩からになりますが） そうすればMac版でも使えるようにできるのではと思います。 本当にお世話になりました。