質問: 範囲のあるセルに画像(jpg)を貼り付けたい。 単体のセルなら結構見本があるのですが、 範囲を持ったセル(例えば"a1:d5"のような)に貼り付ける見本が見当たりません。 どなたかご教示下さい。 やりたいことは、 予め目的セルを範囲選択しておき、 その範囲いっぱいに画像を展開したいのです。 勿論、縦横比は崩れますが構いません。 宜しくお願いします。
回答: こんばんは! 横からお邪魔します。 >vbaでのコードです というコトですので、一例です。 画像(jpgとしています)の保存場所からa1:d5セルの範囲に配置してみました。 sub 画像挿入() dim myrng as range dim mypath as string, fn as string set myrng = range("a1:d5") '←配置するセル範囲 mypath = "保存場所\" '←保存場所のパス★ fn = "○○.jpg" '←ファイル名★ with activesheet.pictures.insert(mypath & fn).shaperange .lockaspectratio = msofalse .left = myrng.left .top = myrng.top .width = myrng.width .height = myrng.height end with end sub ※ コード内の「パス」と「ファイル名」は挿入したい画像のプロパティから 実際のパス・ファイル名にしてください。 こんな感じではどうでしょうか?m(_ _)m