各種の資料を作ったりと、写真をエクセルに取り込む機会は多いようです。手動で取り込んだままではスクロールもままならない状態となってしまいます。そこで、写真ファイルを指定し、A列に上から順番に貼り付け、さらにセル内に収まるように縮小するマクロになります。Subこれで、とりあえず、ちゃんと貼りつきました。元ファイルが、取り込んだ時のフォルダーに存在しないと表示できません。エクセルファイルを配布できません。以下では、写真をリンクではなくエクセルに貼り付けています。SubShapes.AddPictureでの取込時点では、サイズが不明なので、Width:=0Height:=0)で、サイズ0で取り込んでいます。その後、一旦、元のサイズに戻した後に、セル内に収めています。写真そのものがエクセルに貼りついていますので、エクセルのサイズは当然大きくなります。写真の取込方法について(Pictures.Insert,Shapes.AddPicture)このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。