質問: k + 1 Else Exit Sub End If Next i Next j End Sub ### 試したこと 要求する画像がフォルダ内に無い場合に起こるエラーだと調べている最中に見たので 画像の名前に注目して変更なども行いましたが無理でした ### 補足情報(言語/FW/ツール等のバージョンなど) VBA Excel2010
回答: ``` ActiveSheet.Pictures.Insert(MANGA).Select ``` 単純に、MANGA に格納されているファイルパスが間違っているだけではないですか。 ``` Debug.Print MANGA 'デバッグ用コード ActiveSheet.Pictures.Insert(MANGA).Select ``` 上記のようにデバッグ用コードを追加して、実行してみて、イミディエイトウィンドウに出力されたファイルパスが正しいかどうか確認してみてください。 ``` M = Range("B2").Formula MANGA = PP & M & "\の4コママンガ" & k & ".jpg" ``` Formula は数式ですので、M には数式が入ります。となると、どう考えても MANGA には正しいファイルパスが入るとは考えられません。