|
▼ポンタ さん:
お答え有難うございます。
教えて頂いたコードはきちんと作動しますので、
ご指摘頂いた通り 新規投稿とさせて頂きます。
>Cells(MyRow, 46 - Val(Right(設置場所, 2))).Value = ListBox1.Value
>Set MyPicture = ActiveSheet.Pictures.Insert("G:\picture1\" & ListBox1.Value & ".jpg")
>
>上記2行の間に、
>「ListBox1.Value & ".jpg"という画像ファイルを
> http://www.detarame.co.jp/ からダウンロードし、
> G:\picture1\ というフォルダに ListBox1.Value & ".jpg"
> という名前で保存する」
>というコードを挿入するだけ良いと思います。
>
>一応、HPから画像をダウンロードする方法を調べて見ますが、
>もし、お役に立つことが出来なかったとしても、ご容赦ください。
お急がしのに本当に細部に入りお返事頂き有難うございます。
もし ダウンロード方法がわかりましたら
新規投稿へお返事頂ければ幸いです。
私も念の為 検索機能を使って調べてみます。
第一段階はクリアーと言う事でこちらの投稿は
このお返事にて終了とさせて頂きます。
有難うございました。
|
|