エクセルのセルの統合について質問です。

質問

エクセルのセルを統合して、少し大きめの統合セルを
作成します。
この統合して作ったセルに、写真を貼り付けたいと
思います。
そこで、この統合セルの大きさに自動的に写真の
大きさを、合わせて貼り付けることは出来るでしょうか？
今は、写真を貼り付けた後、手作業で、大きさを
調整して、セルの上にこれも、手作業で移動させて、
貼り付けています。

統合セルの大きさに合わせて自動的に画像を貼り付ける
方法は、ないのでしょうか？

回答No.1

mshr1962 · ベストアンサー

オートシェープの四角をセルの大きさにしておいて
塗りつぶし→塗りつぶし効果→図→図の選択
で表示する画像を選択しては如何ですか？
選択した図形の中に絵が表示されます。四角以外で設定するのも面白いですよ。

※上記のリンクの状態で嫌な場合は、上記をコピーして
形式を選択して貼り付けで別の形式(gif,jpeg等)を選択すればいいです。

お礼

ありがとうございます。
すごく使えますね！
上の方の方法を併用すると、もう、完璧です！
キターーーー

回答No.3

imogasi

Ａ１，Ｂ１，Ｃ１セルを結合しました。
セルを結合しても、ＶＢＡでのＡ１，Ｂ１，Ｃ１の各ＷＩＤＴＨは変わらないようです。
それで、画像を読み込んで、ＡＢＣ列の幅の和とＡ１の高さに、画像の大きさを合わせました。
下記のコード前半・上の４－５行は確認のために入れています。
Sub test01()
Cells(10, 1) = Cells(1, 1).Width
Cells(10, 2) = Cells(1, 2).Width
Cells(10, 3) = Cells(1, 3).Width
Range("a1:c1").MergeCells = True
Cells(11, 1) = Cells(1, 1).Width
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Water lilies.jpg" _
).Select
Selection.Width = Cells(1, 1).Width + Cells(1, 2).Width + Cells(1, 3).Width
Selection.Height = Range("a1").Height
End Sub
略してますが画像のＴｏｐ、ＬｅｆｔをＡ１セルのそれに合わせる事が必要でしょう。

お礼

専門的な回答どうもありがとうございました。
これは、マクロといわれるものですか？
おそらく、実行できれば、一番楽チンなものとなると
思います。
（でも、私、これを、まず、どうすればいいのかもわかりません）

ご回答、ありがとうございました。
また、よろしくおねがいします。

回答No.2

nonpq

セルの四隅にオブジェクトをあわせるときAltキーを押しながら操作すると、セルサイズにオブジェクトが連結されるので、移動や削除・サイズ変更などがセルに連動するようになるはずです。

お礼

ありがとうございます。。
下の方の方法と併用して使いますね。
とても、簡単で便利ですｙ。