Kindleで写真集を出す方法。パワポ・Kindle Comic Creator。

2022年4月3日

URLをコピーしました！

Kindle出版では、写真メインのものも出せます。
今回は、写真集のつくり方をまとめてみました。

※パワポの画面　by　Sony α7SⅢ+70-200mmF2.8

1 Kindle本をつくる流れ
2 写真をパワポへ
3 PDF→Kindle Comic Creator→Kindle

Kindle本をつくる流れ

Kindle本を出版するには、大きく分けると2つの種類があります。
1　リフロー型　テキストがメイン
2　固定レイアウト型　図・写真が多い

今回のテーマの写真集は、2のパターンです。
それぞれのパターンは、それぞれ記事に書いています。
Kindle出版（リフロー型）のメリット・方法・使うソフト

Kindle本（リフロー）に写真を入れる方法

Kindle出版（KDP）。パワポで固定レイアウトのKindle本をつくる方法
 1年間毎月Kindle本を出してわかったKindle出版のコツ

どちらのパターンも、最終的には、Word、EPUB形式のファイルが必要です。
固定レイアウトの場合は、MOBIファイルという形式が必要で、これは、AmazonのKindle Comic Creatorというソフトで、PDFからつくります。

写真集のもととなるPDFが必要ということです。
そのPDFは、パワポからでもWordからでもつくれることができ、今回はパワポを使いました。
（Adobeのソフトでもできます）

写真集をつくるときの手順は次のようなものです。
・写真を選ぶ
・写真ファイルを写真集の順番に並べる
・写真をパワポへ貼り付ける
・パワポをPDFへ
・PDFをKindle Comic CreatorでMOBIファイルに
・MOBIファイルをKindleサイトでアップ
・表紙は、JPEGをKindleサイトでアップ（Illustratorでつくりました）

写真は、Googleフォトから候補を選んでダウンロードし、Adobe Bridgeで☆（レーディング）をつけて絞り込みました。

写真は、並べた順に、パワポマクロで貼り付けたので、並べる必要があります。
手動でもいいのでしょうが、350枚ほど。
今回は、写真の撮影日順に並べました。
ただ、Macだと撮影日順に並べることができません。
（作成日だと撮影日とは違ってきます）

Adobe Bridgeの［ファイル名をバッチで変更］を使って、作成日（ここでは、イコール撮影日）をファイル名にして、並べました。

なお、同じくBridgeの［ツール］→［Photoshop］→［イメージプロセッサー］で、画像を圧縮しています。

この下ごしらえのあと、写真をパワポに貼り付けるマクロを使いました。

写真をパワポへ

マクロを使えば、フォルダにある写真ファイルをパワポへ自動で貼り付けることができます。
・写真を1つのフォルダに入れる
・新規のパワポを開いて、Alt（Macは、option）＋F11
・［挿入］→［標準モジュール］
・下記のパワポを貼り付ける
・フォルダの部分（赤い部分）をご自身の環境に書き換える
・マクロを実行する（F5キー）
という手順です。

Sub photo_slide()


'1 フォルダの写真（JPEG）
    
    Dim folder
    folder = "/Users/yoichiinoue/Dropbox/0 INBOX/test/"
    
    Dim photo
    photo = Dir(folder & "*jpg")
    
    
    
'2 フォルダの写真（JPEG）をパワポへ

    Do Until photo = ""
    
        'スライドを数える
        Dim cnt
        cnt = ActivePresentation.Slides.Count


        'スライドを追加
        Dim sld
        Set sld = ActivePresentation.Slides.Add(Index:=cnt + 1, Layout:=ppLayoutBlank)
         
        'スライドに写真を追加
        Dim shp
        Set shp = sld.Shapes.AddPicture( _
        FileName:=folder & photo, _
        linktofile:=msoFalse, _
        savewithdocument:=msoTrue, _
        Left:=0, Top:=0)
        
        '写真を選択
         
        sld.Select
        shp.Select
         
         '写真の幅と高さ
        ActiveWindow.Selection.ShapeRange.Align aligncmd:=msoAlignCenters, relativeto:=msoTrue
        ActiveWindow.Selection.ShapeRange.Align aligncmd:=msoAlignMiddles, relativeto:=msoTrue
    
        photo = Dir()
    Loop
    
End Sub

・フォルダから、写真ファイルを探す
・パワポで新規のスライドを追加
・写真を貼り付ける
・中央揃えにする
という流れを繰り返します。

事前にパワポのスライドのサイズを設定してから実行していただければ。
私は縦にしました。
横のほうが自由度は上がりますが、スマホで見ることを想定して、縦にしています。

こちらの記事も参考にしていただければ。
パワポマクロで、写真をスライドにし、ファイル名をタイトルにする方法

このパワポをPDFにします。
ここで注意点が。
PDFのファイル名を半角アルファベットにしないと、Kindleサイトへアップするときにエラーが出ます。
気をつけましょう。