【VBA】ワークシート上に画像ファイルを表示する

質問

勉強として、LoadPicture関数を使って、
画像表示をするプログラムを作っております。

今、ワークシート上にImageオブジェクトを作って
そこに画面表示されるようにしたいと思っております。

※ユーザフォームで、Imageオブジェクトを作って
　表示することはできます。

今、ワークシート上にImageオブジェクトをどう作るのかが
わからず、それについて教えていただきたく掲示致しました。

※下記サイトに記載されている、ワークシート上にImageオブジェクトを
　どう配置すればいいのかが、関心を持っております。

　http://mugicyan.gooside.com/excel/vba_times/lesson_02_01.html

回答No.2

mimeu

こんな感じです。
ちょっとヤヤコシイですが、
ワークシートオブジェクトの中にはＩｍａｇｅオブジェクトがありません。
ＯＬＥオブジェクトがあるだけなので、こうなります。

Sub Test()
　　Dim Image1 As MSForms.Image, Ole1 As OLEObject
　　Set Ole1 = Worksheets("Sheet1").OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
　　　　DisplayAsIcon:=False, Left:=20, Top:=20, Width:=100, Height:=100)
　　Set Image1 = Ole1.Object
　　Image1.AutoSize = True
　　Image1.Picture = LoadPicture("画像ファイルのフルパス")
End Sub

でも、ワークシート上に画像を表示するなら、
何もＭＳＦｏｒｍのＩｍａｇｅ枠など使わなくても、
Worksheets.Shapes.AddPicture　を使う方が素直ではないでしょうか。

回答No.1

mitarashi

これですかね
http://office.microsoft.com/ja-jp/excel/HP102366841041.aspx
ワークシート上のImageオブジェクトは、印刷するとズレるし、移動や寸法変更も融通が利かないし、
あまりいいことは無いと思うのは自分だけでしょうか。（当方XL2000ですが）
挿入／図／ファイルからの方をお勧めします。