最新閲覧日:

エクセル2000で見積り・契約書等を作っています。どうしてもウェブ上のJPG画像の添付が必要です。http://www.arata-home.com/karitai/55/55-1.jpg(参考画像)ワンクリックにて画像はマクロ設定で定位置に収まるのですがエクスプローラーを閉じることができません。又、できたらエクセルソフトのみで画像を取り入れたいのですが可能でしょうか? 社内LANを使っていますので標準ソフト以外は使用禁止と言われました。手間をかけずに貼り付け工程の終了までを短縮したいと思います。
どうぞよろしくお願いいたし

このQ&Aに関連する最新のQ&A

A 回答 (2件)

> ワンクリックにて画像はマクロ設定で定位置に収まるのですが


> エクスプローラーを閉じることができません。

マクロで定位置に画像を挿入するところまではできている?
エクスプローラーとは? 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 画像を展開する時間が必要
になるからです。
    • good
    • 1
この回答へのお礼

完璧です。
ありがとうございました。

お礼日時:2007/07/07 03:05

直接Web画像取り込みしているのでしょうか?


一旦デスクトップ上に保存して
それを取り込んでしまえば
簡単に解決する問題だと思うのですが・・・・

この回答への補足

先のアドバイスの意味を理解しておりませんでした。
又、質問内容に不足部分がありました。
画像ファイルはウェブ上にあり約10万枚以上存在します。
更新は約3ヶ月程度で全て一掃されてしまいます。
毎回、見積り・契約書を作成時に取り入れが必要となります。
よろしくおねがいいたします

補足日時:2007/07/05 11:50
    • good
    • 0
この回答へのお礼

早速、アドバイスいただきましてありがとうございました。
職場においてパソコンを苦手としているメンバーがおりますので
今回はワンクリック操作にて何か良い解決策はないかと思い
ご質問させていただきました。

お礼日時:2007/07/05 11:50

このQ&Aに関連する人気のQ&A

このQ&Aと関連する良く見られている質問

Q範囲のあるセルに画像(jpg)を貼り付けたい。

単体のセルなら結構見本があるのですが、
範囲を持ったセル(例えば"A1:D5"のような)に貼り付ける見本が見当たりません。
どなたかご教示下さい。

やりたいことは、
予め目的セルを範囲選択しておき、
その範囲いっぱいに画像を展開したいのです。
勿論、縦横比は崩れますが構いません。

宜しくお願いします。

Aベストアンサー

こんばんは!
横からお邪魔します。

>vbaでのコードです
というコトですので、一例です。

画像(jpgとしています)の保存場所からA1:D5セルの範囲に配置してみました。

Sub 画像挿入()
Dim myRng As Range
Dim myPath As String, fN As String

Set myRng = Range("A1:D5") '←配置するセル範囲
myPath = "保存場所\" '←保存場所のパス★
fN = "○○.jpg" '←ファイル名★
With ActiveSheet.Pictures.Insert(myPath & fN).ShapeRange
.LockAspectRatio = msoFalse
.Left = myRng.Left
.Top = myRng.Top
.Width = myRng.Width
.Height = myRng.Height
End With
End Sub

※ コード内の「パス」と「ファイル名」は挿入したい画像のプロパティから
実際のパス・ファイル名にしてください。

こんな感じではどうでしょうか?m(_ _)m

こんばんは!
横からお邪魔します。

>vbaでのコードです
というコトですので、一例です。

画像(jpgとしています)の保存場所からA1:D5セルの範囲に配置してみました。

Sub 画像挿入()
Dim myRng As Range
Dim myPath As String, fN As String

Set myRng = Range("A1:D5") '←配置するセル範囲
myPath = "保存場所\" '←保存場所のパス★
fN = "○○.jpg" '←ファイル名★
With ActiveSheet.Pictures.Insert(myPath & fN).ShapeRange
.LockAspectRatio = msoFalse
...続きを読む

Qエクセルマクロについてお伺いします。 例なのですが、 A1に2016/6/9 B1に2016/6/1

エクセルマクロについてお伺いします。
例なのですが、
A1に2016/6/9
B1に2016/6/14
と入力したら、下記のようにその期間中の曜日に数字の1を表示させるようなマクロは可能でしょうか?


A B C D E F G H I
1 月 火 水 木 金 土 日
2 今週 1 1 1 1
3 来週 1 1

Aベストアンサー

「下記」の部分が表になってないので細かいところわかりませんが、
C1に
=today()

今週・月 のセルに
=IF(AND($A$1>=$C$1-WEEKDAY($C$1,3),$A$1<=$C$1-WEEKDAY($C$1,3)+6,WEEKDAY($A$1,11)=1),1,"")

来週・月 のセルに
=IF(AND($B$1>=$C$1-WEEKDAY($C$1,3)+7,$B$1<=$C$1-WEEKDAY($C$1,3)+13,WEEKDAY($B$1,11)=1),1,"")

と入力してください。
火曜日~日曜日は、各数式最後の「,1,"")」の部分を、火曜なら「,2,"")」、水曜なら「,3,"")」と増やしていってコピーしてください。

質問中の表だと1がたくさん表示されてますが、本文どおりですとこのようになります。

Qエクセルで「2016/5/12」を「2016/5」または「2016年5月」に変換したい

エクセルで「yyyy/mm/dd」となっているものを、計算式などでyyyy/mm/dd、もしくはyyyy年mm月に変換したいのですが、簡単な方法はないでしょうか?

私がやっているのは、3列使い、計算式のYEARとMONTHをつかい、CONCATENATEで
”YEARの列"+"/"+"MONTH" と合体させるやり方ですが、もうちょっと簡単に1発で済む
やり方はないものでしょうか???

Aベストアンサー

タイトル通りなら
=TEXT(A1,"yyyy/m")
=TEXT(A1,"yyyy年m月")

質問文の
>計算式などでyyyy/mm/dd、もしくはyyyy年mm月に
=TEXT(A1,"yyyy/mm/dd")
=TEXT(A1,"yyyy年mm月")

Qエクセル画面にウェブ画面を取り入れたい(Windows10使用)

エクセル画面にウェブサイトの画面を取り入れたい。

Aベストアンサー

Excel2010以降なら、リボンの[挿入]タブに[スクリーンショット]があります
ので、開いているウェブサイトの画面を取り入れることができます。
http://www4.synapse.ne.jp/yone/excel2010/excel2010_screenshot.html

[使用できるウィンドウ]で、指定したウィンドウをそのまま取り入れるか、
[画面の領域]で半透明の画面に切り替わったらドラッグして領域を選択すれば、
その範囲をExcelに取り入れることができるようになります。

Q旅行の工程表をエクセルに貼り付けしたいのですがわかりません

旅行の工程表をエクセルに貼り付けしたいのですがわかりません

Aベストアンサー

PrintScreenキーを押してスクリーンショットを撮り、クリップボードと呼ばれるメモリに保存しイメージ(画像)として切り出す。
そのイメージ(画像)は、Excelを開いている状態で[Ctrl]キーを押しながら[V]キーを押せば、そのままExcelに貼り付けることができる。
不要な部分はExcelで画像のプロパティを開いて「トリミング」で削ればよい。

※分からない単語は自分で調べて意味を確認しておきましょう。

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード


このQ&Aを見た人がよく見るQ&A

このカテゴリの人気Q&Aランキング

おすすめ情報