|
ニッキ さん、こんにちわ。
>説明不足ですみません。
>他の方がシート上に作成した図形をフォーム上に再表示するということで、
>自分の手元には、ファイルがないのです。
>
>このような場合、フォーム上に表示できるのでしょうか?
Googleで検索かけたら出てきたのが、よそのサイトの過去ログでしたが。
h t t p://www.keep-on.com/excelyou/2003lng4/200310/03100204.txt
フォーム上のイメージコントロールをクリックすると、ファイルから画像を読み込んでコピーし、クリップボードからフォームに送る例が出ていました。
With TGUID から下を以下のように変更してみてください。
<<略>>
With TGUID
.Data1 = &H20400
.Data4(1) = &HC0
.Data4(8) = &H46
End With
Call OleCreatePictureIndirect(TPICTDESC, TGUID, True, Clipboard_GetMetafile)
End Function
Private Sub Image1_Click()
'アクティブなシートの一つ目のピクチャ
Application.ActiveSheet.Pictures(1).Copy
'イメージコントロールに割付
Image1.Visible = False
Image1.Picture = Clipboard_GetMetafile()
Image1.Visible = True
End Sub
|
|