三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

PowerPoint 全てのスライドをjpg画像で出力 VBA マクロ .Exportで簡単にできました

タイトルサムネイル

PowerPointのスライドで複数サムネイル画像を作成
各スライドをjpgファイルに保存したいと思い、
VBAを探ってみたら、
.Export で 簡単に画像ファイルを作成できました。
youtu.be
https://youtu.be/Gf1AGfSdN5c
目次
00:00 挨拶 やりたいこと
00:50 1.プレゼンファイル全体を.Exportで出力
02:33 2.指定スライドを.Exportで出力
04:11 3.名前を付けて、全スライドを出力してみた

1.プレゼンファイル全体を.Exportで出力
出力場所の指定はできるが、ファイル名が気に入らなかったり、ぉぃぉぃ。

Sub test001()
    Dim strPATH As String  '保存場所 現在と同じPATHにしたい
    strPATH = ActivePresentation.Path  '保存場所パス
    
    '出力場所 と ファイルの種類とお手軽だけど・・・
    ActivePresentation.Export Path:=strPATH, FilterName:="jpg"

    MsgBox "終了"
End Sub

2.指定スライドを.Exportで出力
指定したスライド1枚を1画像ファイルに出力可能です

Sub test002()
    Dim strPATH As String  '保存場所 現在と同じPATHにしたい
    strPATH = ActivePresentation.Path  '保存場所パス
    
    Dim strFILENAME As String  '出力ファイル名
    strFILENAME = strPATH & "\個別スライド画像出力.jpg"
    
    'ファイル名と種類を指定して出力
    ActivePresentation.Slides(2).Export strFILENAME, "jpg"
    '↑2ページ目のスライドをテストでjpg出力

    MsgBox "終了"
End Sub

3.↑の応用で、名前を付けて、全スライドを出力してみた
すきな名前を付けたかったら、
1ページ目から全部のスライドを出力すればいいのかな。

'3.ループで回して1ページ目からスライドを.Exportで画像出力
Sub test003()
    Dim strPATH As String  '保存場所 現在と同じPATHにしたい
    strPATH = ActivePresentation.Path  '保存場所パス
    
    Dim strFILENAME As String  '出力ファイル名
    Dim p As Integer
    
    For p = 1 To ActivePresentation.Slides.Count
        strFILENAME = strPATH & "\YouTubeサムネ" & Format(p, "000") & ".jpg"
        'Slides(p)をjpg画像出力
        ActivePresentation.Slides(p).Export strFILENAME, "jpg"
        '↑pページ目のスライドをjpg出力
    Next
    
    MsgBox "終了"
    
End Sub

#PowerPointVBA #JPG #Export #スライド #jpg出力 #マクロ #デバッグ

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)