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

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

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

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

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

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

　http://mugicyan.gooside.com/excel/vba_times/less …

No.2 回答者： mimeu 回答日時： 2010/04/17 21:39

こんな感じです。

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


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 回答日時： 2010/04/17 12:20

これですかね

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