質問編集履歴
4
標準モジュールで作成していることを記載
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
VBAでウェブ画像検索し、その画像をエクセルに貼り付けるという操作を作成しております。
|
|
2
2
|
|
|
3
|
-
（操作手順）
|
|
3
|
+
（操作手順）※標準モジュールで作成
|
|
4
4
|
|
|
5
5
|
1.googleでA列にあるワードを画像検索
|
|
6
6
|
|
3
一部構文の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -138,23 +138,7 @@
|
|
|
138
138
|
|
|
139
139
|
End With
|
|
140
140
|
|
|
141
|
-
|
|
142
|
-
|
|
143
|
-
|
|
141
|
+
|
|
144
|
-
|
|
145
|
-
MsgBox "エラーが発生しました。" & vbCrLf & _
|
|
146
|
-
|
|
147
|
-
"ステータスコード：" & req.Status, _
|
|
148
|
-
|
|
149
|
-
vbCritical vbSystemModal
|
|
150
|
-
|
|
151
|
-
Exit Sub
|
|
152
|
-
|
|
153
|
-
End Select
|
|
154
|
-
|
|
155
|
-
End Sub
|
|
156
|
-
|
|
157
|
-
|
|
158
142
|
|
|
159
143
|
End Sub
|
|
160
144
|
|
2
エラーの原因の記載：一時ディレクトリ画像が保存されない
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -14,10 +14,10 @@
|
|
|
14
14
|
|
|
15
15
|
「このイメージは現在表示できません」となってしまいます。
|
|
16
16
|
|
|
17
|
+
原因としては、一時ディレクトリ（フォルダ）に保存されないことかと思います。
|
|
18
|
+
|
|
17
19
|
対処法を教えていただけないでしょうか。
|
|
18
20
|
|
|
19
|
-
個人的には、保存先や参照先のファイルの設定が間違っているのかなと思います。
|
|
20
|
-
|
|
21
21
|
よろしくお願いいたします。
|
|
22
22
|
|
|
23
23
|
|
|
@@ -132,7 +132,7 @@
|
|
|
132
132
|
|
|
133
133
|
.Write xhr.responseBody
|
|
134
134
|
|
|
135
|
-
.SaveToFile ActiveWorkbook.Path & "
|
|
135
|
+
.SaveToFile ActiveWorkbook.Path & "\picture\p1.png"※保存したいファルダとファイル名を指定, adSaveCreateOverWrite
|
|
136
136
|
|
|
137
137
|
.Close
|
|
138
138
|
|
|
@@ -190,7 +190,7 @@
|
|
|
190
190
|
|
|
191
191
|
Set shape = ActiveSheet.Shapes.AddPicture( _
|
|
192
192
|
|
|
193
|
-
Filename:=ActiveWorkbook.Path & "\
|
|
193
|
+
Filename:=ActiveWorkbook.Path & "\picture\p1.png※表示したい画像ファイルを指定", _
|
|
194
194
|
|
|
195
195
|
LinkToFile:=False, _
|
|
196
196
|
|
1
文章の修正
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
VBA ウェブ画像の表示「このイメージは現在表示できません」と出てしまう
|
|
1
|
+
【緊急】VBA ウェブ画像の表示「このイメージは現在表示できません」と出てしまう
|
test
CHANGED
|
File without changes
|