Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


4211 / 13644 ツリー ←次へ | 前へ→

【57828】フォーム上にシートのオートシェイプを表示したい yam 08/9/15(月) 19:48 質問[未読]
【57829】Re:フォーム上にシートのオートシェイプを... kanabun 08/9/15(月) 19:53 発言[未読]
【57847】Re:フォーム上にシートのオートシェイプを... sasa 08/9/17(水) 16:15 回答[未読]
【57857】Re:フォーム上にシートのオートシェイプを... yam 08/9/17(水) 19:41 お礼[未読]

【57828】フォーム上にシートのオートシェイプを表...
質問  yam  - 08/9/15(月) 19:48 -

引用なし
パスワード
   フォームにシートで描いたオートシェイプを表示したいのですが、
「画像データとして保存→イメージで表示」以外に方法はありますか?

【57829】Re:フォーム上にシートのオートシェイプ...
発言  kanabun  - 08/9/15(月) 19:53 -

引用なし
パスワード
   ▼yam さん:こんばんは。

>フォームにシートで描いたオートシェイプを表示したいのですが、
>「画像データとして保存→イメージで表示」以外に方法はありますか?

あります。
LoadPictureFromCB で ググってみてください。
クリップボードにCopy(または CopyPicture) されたイメージを
UserFormに貼り付けることができます。

【57847】Re:フォーム上にシートのオートシェイプ...
回答  sasa  - 08/9/17(水) 16:15 -

引用なし
パスワード
   ▼yam さん:
>フォームにシートで描いたオートシェイプを表示したいのですが、
>「画像データとして保存→イメージで表示」以外に方法はありますか?

過去ログに何回かあったとおもいます。
以下一例
h t t p://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=54550;id=excel

ここのGetPicture関数使っても出来ます。

'シートで描いたオートシェイプを選択した状態で
'メタ形式の例
 Selection.CopyPicture
 Set UserForm1.Picture = GetPicture(xlPicture)

'ビトマップ形式の例
 Selection.CopyPicture , xlBitmap
 Set UserForm4.Picture = GetPicture(xlBitmap)

【57857】Re:フォーム上にシートのオートシェイプ...
お礼  yam  - 08/9/17(水) 19:41 -

引用なし
パスワード
   アドバイスどうもありがとうございます。
早速試してみます。

4211 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free