|
▼わいわい さん:
こんにちは。
>いつも解答ありがとうございす。
>ご提示頂いた、リストを確認してみましたが、そのままでは、画像の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でも出来ましたよ!!
遅くなってしまったので見ていないかもしれませんが、
もし気が付いたら、試してみてください。
|
|