Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4224 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   アドバイスどうもありがとうございます。
早速試してみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4224 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free