質問編集履歴
4
標準モジュールで作成していることを記載
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,5 +1,5 @@
|
|
|
1
1
|
VBAでウェブ画像検索し、その画像をエクセルに貼り付けるという操作を作成しております。
|
|
2
|
-
（操作手順）
|
|
2
|
+
（操作手順）※標準モジュールで作成
|
|
3
3
|
1.googleでA列にあるワードを画像検索
|
|
4
4
|
2.各列の画像１つをフォルダに保存
|
|
5
5
|
3.ファルダ内の画像を参照して、A列のワードの右に画像を表示
|
3
一部構文の修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -68,15 +68,7 @@
|
|
|
68
68
|
.SaveToFile ActiveWorkbook.Path & "\picture\p1.png"※保存したいファルダとファイル名を指定, adSaveCreateOverWrite
|
|
69
69
|
.Close
|
|
70
70
|
End With
|
|
71
|
-
|
|
72
|
-
|
|
71
|
+
|
|
73
|
-
MsgBox "エラーが発生しました。" & vbCrLf & _
|
|
74
|
-
"ステータスコード：" & req.Status, _
|
|
75
|
-
vbCritical vbSystemModal
|
|
76
|
-
Exit Sub
|
|
77
|
-
End Select
|
|
78
|
-
End Sub
|
|
79
|
-
|
|
80
72
|
End Sub
|
|
81
73
|
|
|
82
74
|
Private Function FindFirstUrlFromGoogleImageSearch(ByVal html As String) As String
|
2
エラーの原因の記載：一時ディレクトリ画像が保存されない
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -6,8 +6,8 @@
|
|
|
6
6
|
|
|
7
7
|
以下のようにプログラムしているのですが、エクセルでの画像表示が、
|
|
8
8
|
「このイメージは現在表示できません」となってしまいます。
|
|
9
|
+
原因としては、一時ディレクトリ（フォルダ）に保存されないことかと思います。
|
|
9
10
|
対処法を教えていただけないでしょうか。
|
|
10
|
-
個人的には、保存先や参照先のファイルの設定が間違っているのかなと思います。
|
|
11
11
|
よろしくお願いいたします。
|
|
12
12
|
|
|
13
13
|
Option Explicit-
|
|
@@ -65,7 +65,7 @@
|
|
|
65
65
|
.Type = adTypeBinary
|
|
66
66
|
.Open
|
|
67
67
|
.Write xhr.responseBody
|
|
68
|
-
.SaveToFile ActiveWorkbook.Path & "
|
|
68
|
+
.SaveToFile ActiveWorkbook.Path & "\picture\p1.png"※保存したいファルダとファイル名を指定, adSaveCreateOverWrite
|
|
69
69
|
.Close
|
|
70
70
|
End With
|
|
71
71
|
|
|
@@ -94,7 +94,7 @@
|
|
|
94
94
|
'ref: http://www.moug.net/tech/exvba/0120020.html
|
|
95
95
|
Dim shape As shape
|
|
96
96
|
Set shape = ActiveSheet.Shapes.AddPicture( _
|
|
97
|
-
Filename:=ActiveWorkbook.Path & "\
|
|
97
|
+
Filename:=ActiveWorkbook.Path & "\picture\p1.png※表示したい画像ファイルを指定", _
|
|
98
98
|
LinkToFile:=False, _
|
|
99
99
|
SaveWithDocument:=True, _
|
|
100
100
|
Left:=ActiveCell.Left + ActiveCell.Width, _
|
1
文章の修正
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
VBA ウェブ画像の表示「このイメージは現在表示できません」と出てしまう
|
|
1
|
+
【緊急】VBA ウェブ画像の表示「このイメージは現在表示できません」と出てしまう
|
body
CHANGED
|
File without changes
|