質問
質問者：ha-texi- エクセルのみでウェブ画像を取り入れたい　・　ＩＥを閉じさせたい
困り度：
  • すぐに回答を！
 エクセル2000で見積り・契約書等を作っています。どうしてもウェブ上のＪＰＧ画像の添付が必要です。​http://www.arata-home.com/karitai/55/55-1.jpg​（参考画像）ワンクリックにて画像はマクロ設定で定位置に収まるのですがエクスプローラーを閉じることができません。又、できたらエクセルソフトのみで画像を取り入れたいのですが可能でしょうか？　社内ＬＡＮを使っていますので標準ソフト以外は使用禁止と言われました。手間をかけずに貼り付け工程の終了までを短縮したいと思います。
どうぞよろしくお願いいたし
質問投稿日時：07/07/05 04:43
質問番号：3140786
この質問に対する回答は締め切られました。
最新から表示｜回答順に表示｜良回答のみ表示

回答

良回答10pt
回答者：KenKen_SP > ワンクリックにて画像はマクロ設定で定位置に収まるのですが
> エクスプローラーを閉じることができません。

マクロで定位置に画像を挿入するところまではできている？
エクスプローラーとは？ IE のこと？ Excel との関係は？
Web 上の画像を挿入する VBA コードが知りたいのですか？

どこが問題点なのかよくわかりませんが、、Web 上の画像で
あっても Insert メソッドでシートに画像は挿入できますよ。
例えば、Jpeg 画像の URL がわかっているなら

ActiveSheet.Pictures.Insert "​http://www.arata-home.com/karitai/55/55-1.jpg"​

こんな感じ。これが参考になりませんか？

数が多い場合はループ処理させてファイル名の連番を生成し、
上記コードで取り込むとか。

　sDirPath = "​http://www.arata-home.com/karitai/55/"​
　For i = 1 to 1000
　　　sFilename = "55-" & Format$(i,"0000") & ".jpg"
　　　ActiveSheet.Pictures.Insert sDirPath & sFilename
　Next i

あとは既存マクロとの応用かと。

、、、でも遅くてとても大量処理には向かないですよ。なぜなら
Insert したときに、Excel が Jpeg 画像を展開する時間が必要
になるからです。
種類：アドバイス
どんな人：一般人
自信：参考意見
回答日時：07/07/05 18:12
回答番号：No.2
この回答へのお礼完璧です。
ありがとうございました。
最新から表示｜回答順に表示｜良回答のみ表示
このページのトップへ