Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41441 / 76732

←次へ　｜　前へ→


	【40371】Re:UserFormへの画像の張り付け方

ichinose - 06/7/12(水) 17:45 -


	引用なし

	パスワード

▼わいわいさん：
こんにちは。

>いつも解答ありがとうございす。
>ご提示頂いた、リストを確認してみましたが、そのままでは、画像のUserForm1への貼付けが出来ませんでした。
>そこでctmp.filesフォルダ内を調べてみると、私の環境WinXP SE、Excel2000では、以下のような結果となりました。
>
>Set shp = ActiveSheet.Shapes("Picture 1")の場合
>　　ctmp.files内には、filelist.xml、image001.png、image002.jpg が出来ます。
>Set shp = ActiveSheet.Shapes("Rectangle 1")の場合
>　　ctmp.files内には、filelist.xml、image001.jpg が出来ます。
>Set shp = ActiveSheet.Shapes("Group 3")の場合
>　　ctmp.files内には、filelist.xml、image001.jpg が出来ます。
>Set shp = ActiveSheet.Shapes("Object 1")の場合
>　　filelist.xml、image001.emz、image002.gif、oledata.mso が出来ます。
>以上から、今回は"Picture 1"を利用しているので
>>　　　　　If UCase(fl.Name) Like UCase("image001.*") Then
>を　　　　 If UCase(fl.Name) Like UCase("image002.*") Then
>に変更して表示できました。
>ichinoseさんの環境では、UCase("image001.*")で表示できるのでしょうか？多数の人間が使うことを想定していますので、環境によって条件が変わるようだと考えなければなりません。逆に考えてExcelからctmp.filesフォルダへ書出すファイルを制御する方法があればお教え下さい。

図のサイズによっても違うみたいですね！！
Pngは、Imageコントロールで表示できませんしね！！
（Imageコントロールではなく、WebBrowser1コントロールに表示させるのなら、
Pngでも出来ますが）

では、bykinさんの

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=5437;id=excel

これを参考にしてjpgに落としてみる方法はいかがですか？

例では、セルをjpgに保存していますが、ちょっと応用をきかして
Pictureでも出来ましたよ！！

遅くなってしまったので見ていないかもしれませんが、
もし気が付いたら、試してみてください。

0 hits

▼

【39845】UserFormへの画像の張り付け方 わいわい 06/7/2(日) 22:18