VBA サブフォルダ内の全ての画像ファイルをExcelに貼り付ける

'18/05/19更新:フォルダ名/ファイル名の並びを各々ソートして取得する仕様にコードを更新した。本プログラムは、main関数を指定して実行するとダイアログが表示されるので、下図のように画像ファイルがあるサブフォルダの親フォルダの箇所でOKを押す。ちなみに、画像ファイルの取得方法には拡張子.jpgを指定しているため…