範囲のあるセルに画像（ｊｐｇ）を貼り付けたい。

単体のセルなら結構見本があるのですが、
範囲を持ったセル（例えば"A1:D5"のような)に貼り付ける見本が見当たりません。
どなたかご教示下さい。

やりたいことは、
予め目的セルを範囲選択しておき、
その範囲いっぱいに画像を展開したいのです。
勿論、縦横比は崩れますが構いません。

宜しくお願いします。

No.3 ベストアンサー 回答者： tom04 回答日時： 2015/01/16 22:57

こんばんは！

横からお邪魔します。

＞ｖｂａでのコードです
というコトですので、一例です。

画像（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

この回答へのお礼

早速有り難うございました。
狙ったことが完璧に出来ました。
コレで、コレをベースに拡張が出来ます。
助かりました。

お世話になりました。

お礼日時：2015/01/17 06:58

No.2 回答者： mshr1962 回答日時： 2015/01/16 15:23

その大きさの四角の図形をあらかじめ作っておけばいいのでは？

図形のプロパティの塗りつぶし（図またはテクスチャ）で、張り付ける画像を指定すれば出来ると思いますけど。。。

この回答へのお礼

早速有り難うございます。

トンでもない失敗をやらかしました。
ｅｘｃｅｌの操作ではなく、ｖｂａでのコードです。
申し訳在りませんでした。
宜しくお願いします。

お礼日時：2015/01/16 17:15

No.1 回答者： dimio38 回答日時： 2015/01/16 15:04

統合してひとつのセルにした上で、貼り付ければいいのでは。

この回答へのお礼

早速有り難うございます。

トンでもない失敗をやらかしました。
ｅｘｃｅｌの操作ではなく、ｖｂａでのコードです。
申し訳在りませんでした。
宜しくお願いします。

お礼日時：2015/01/16 17:14