EXCELのShape画像をVBAのフォームに表示するには

質問

EXCELのShape画像をVBAのフォームに表示するには

はじめまして
EXCEL2007-VBAを勉強中です。

EXCELのShape画像をVBAのフォームへ表示したいのですが、どのように書けば
よろしいのでしょうか

回答No.1

keithin · ベストアンサー

時たま出てくるご相談です。

一度ファイルとして保存し，ユーザーフォーム上に配置したImageコントロールにLoadPictureさせる方法：
http://www.keep-on.com/excelyou/2001lng4/200107/01070408.txt
とか，

クリップボードから直接ユーザーフォームに画像を投影する方法
http://www.moug.net/faq/viewtopic.php?t=49182
および回答でリンクされているAPIの方法を参照
とか，

がしばしばご紹介されていると思います。

回答No.2

mitarashi

フォームに直接描画する訳ではありませんが、AutoShapeをクリップボードにコピー後、http://social.msdn.microsoft.com/Forums/en/isvvba/thread/bee14a74-06fd-4924-baf7-c09bd1cd2d4a
のPastePicture関数を用いて、
Sub test()
UserForm1.Show vbModeless
Set UserForm1.Picture = PastePicture(xlPicture)
End Sub
という様に出来ます。
AutoShapeだけでなく、グラフや、画像とAutoShapeの組み合わせ等にも適用可能です。
当方xl2000環境なので、2007で動くかどうか分かりません。