いつもお世話になります。
よろしくお願いします。
B列にネット上の画像のurlが入っているとします。
https://www.softbankhawks.co.jp/entame/img/wallp …
https://www.softbankhawks.co.jp/entame/img/wallp …
https://www.softbankhawks.co.jp/entame/img/wallp …
https://www.softbankhawks.co.jp/entame/img/wallp …
この画像をA列で表示させるマクロを組みたいのですが可能でしょうか。
行数は場合によっては1000行くらいになる予定です。
No.1ベストアンサー
- 回答日時:
こんにちは
情報が少ないので、サンプル程度としてこんな感じ?
Sub sample()
Dim c As Range, u As String
Dim shp As Object, r As Double, rw As Long
For rw = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Set c = Cells(rw, 1)
u = c.Offset(, 1).Text
If u <> "" Then
On Error Resume Next
Set shp = ActiveSheet.Shapes.AddPicture( _
Filename:=u, _
linktofile:=False, _
savewithdocument:=True, _
Left:=c.Left, Top:=c.Top, _
Width:=0, Height:=0 _
)
If Err = 0 Then
With shp
.LockAspectRatio = False
.ScaleHeight 1, msoTrue, msoScaleFromTopLeft
.ScaleWidth 1, msoTrue, msoScaleFromTopLeft
r = Application.Min(c.Width / .Width, c.Height / .Height)
.Height = .Height * r
.Width = .Width * r
.LockAspectRatio = True
End With
Else
c.Value = "取得失敗"
End If
On Error GoTo 0
End If
Next rw
End Sub
試したのですが、「取得失敗」となります。
これはこちらの問題かもしれず、一度該当画像をブラウザで正常表示させておけば、
ばっちり表示されます。
さすがに1000枚の画像を一度開いておくことはできませんので、解消できると助かります。
予め、必要画像をPC内に取り込んでおくことは可能です。
そうしたほうが良いようでしたら、そのように準備いたしますがいかがでしょうか。
No.4
- 回答日時:
#2,3続きです
#3での問題を対処しました。
Sub sample2()
Dim i As Long
Dim strURL As String
Dim objShape As Object
On Error Resume Next
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If Range(Cells(i, 2).Address).Hyperlinks.Count > 0 Then
strURL = ActiveSheet.Cells(i, 2).Hyperlinks(1).Address
Else
strURL = ActiveSheet.Cells(i, 2).Value
End If
With Cells(i, 1)
Set objShape = ActiveSheet.Shapes.AddPicture( _
Filename:=strURL, linktofile:=False, _
savewithdocument:=True, Left:=.Left, _
Top:=.Top, Width:=.Width, Height:=.Height)
objShape.ScaleHeight 1, msoTrue
objShape.ScaleWidth 1, msoTrue
End With
Next
End Sub
せっかく作っていただきましたが、2点問題がございます。
●まず、いまこちらのPCの問題だと思うのですが、リンクを踏んでいない画像に関しては表示されません。
●踏んだ画像に関しても、元の大きさが反映されるようでセルからはみ出します(これはわたしが指定していなかったのですから仕方がないと思います)
一つ目の問題が解消しないので、いま今回のそもそものお願いが検証できない状態です。
No.3
- 回答日時:
#2です。
基本的に#1さんと同じでした。よく見ず、すみません。
>、一度該当画像をブラウザで正常表示させておけば、ばっちり表示されます。
B列のアドレスは https://www.softbankhawks.co.jp/entame/img/wallp … の様な表示になっていませんか?
ちゃんと ~://www.softbankhawks.co.jp/entame/img/wallpaper/2019/wp1912_1s.jpg の様に表示されていますか?
~はhttpsです。
いずれも、ブラウザではアクセスできますが、、
No.2
- 回答日時:
この様な感じではいかがでしょう。
サイズや場所の変更はお任せいたします。
エラー処理は加えていません。
Sub sample()
Dim i As Long
Dim strURL As String
Dim objShape As Object
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
strURL = ActiveSheet.Cells(i, 2)
With Cells(i, 1)
Set objShape = ActiveSheet.Shapes.AddPicture( _
Filename:=strURL, LinkToFile:=False, _
SaveWithDocument:=True, Left:=.Left, _
Top:=.Top, Width:=.Width, Height:=.Height)
objShape.ScaleHeight 1, msoTrue
objShape.ScaleWidth 1, msoTrue
End With
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP 画像ファイルの名前をそのままURLにする 3 2022/10/16 11:18
- HTML・CSS サルワカさんの吹き出しのスタイルシートについて。 https://saruwakakun.com/h 2 2022/10/28 22:55
- WordPress(ワードプレス) WordPressの記事の途中に差し込む 1 2023/06/29 11:18
- JavaScript jQueryで同じクラス名のものを別物として扱いたい 1 2022/06/17 14:14
- Perl 画像が表示でnull; this.src 1 2022/04/19 11:31
- HTML・CSS ブロックエディターで作りつつ、画像を挿入しつつ、画像にスタイルシートのコードを付ける方法はありますか 1 2022/08/23 18:46
- JavaScript アップロードファイルの種類によって処理を分岐させたいのですが書き方が分からずアドバイスお願いします 4 2023/06/17 19:12
- JavaScript html5に変えるとスライドショーが消えてしまった。 3 2022/03/26 19:53
- 政治 このままだと自衛隊は完全に腐り果てますわ 6 2023/06/18 17:19
- HTML・CSS 角丸画像の背景色を透明にしたいです 1 2023/06/23 23:15
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセル ハイパーリンクで画像を表示
その他(Microsoft Office)
-
EXCEL ハイパーリンク先を表示させるには
Excel(エクセル)
-
マクロでセルに入れたファイル名の画像を隣のセルに読み込む
その他(Microsoft Office)
-
-
4
エクセルにハイパーリンクで貼り付けた画像を 通常の埋め込み画像に変換したいのですが、方法が分かる方が
Excel(エクセル)
-
5
Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて
Excel(エクセル)
-
6
エクセル マクロ 相対パスから画像を読み込みたいです。
その他(Microsoft Office)
-
7
条件に一致したときに画像を表示したいのですが・・。
Excel(エクセル)
-
8
エクセル フォルダの画像を画像名で検索して貼り付け
Excel(エクセル)
-
9
マクロで画像挿入→エラー「リンクされたイメージを表
Excel(エクセル)
-
10
Excel セルに入力した画像名からフォルダの画像を自動表示させたい
Excel(エクセル)
-
11
VBAで特定のセルに画像があれば削除、なければ貼り付けを行いたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
高校生です。彼氏の前で初めて...
-
夫婦の夜の営みについてです。 ...
-
彼と体の相性が良すぎて悩んで...
-
女性が喘いでいるときの男性の...
-
彼氏と毎日セックスするのは異...
-
もし週1しか恋人と会えなかった...
-
抱きしめたときに勃起したあそ...
-
彼女が感じやすくて可愛い
-
男性の方に質問です。 バックで...
-
初体験って気持ちいいの? 男の...
-
男の人ってなんですぐ勃つの?...
-
男性に質問です! 電話だけで勃...
-
兄妹や姉弟で、キスやエッチし...
-
彼氏のセックスが下手すぎで幻...
-
クンニしたことある人ー ま○こ...
-
ふぇらでイカセテくれる うまい...
-
キスすれば相手を好きでなくて...
-
セックス中に動画や写真を撮る...
-
彼女がフェラをしてくれません。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
男の人はやってるとき 彼女がす...
-
彼と体の相性が良すぎて悩んで...
-
女性が喘いでいるときの男性の...
-
高校生です。彼氏の前で初めて...
-
夫婦の夜の営みについてです。 ...
-
男性の方に質問です。 バックで...
-
抱きしめたときに勃起したあそ...
-
彼女が感じやすくて可愛い
-
男の人ってなんですぐ勃つの?...
-
もし週1しか恋人と会えなかった...
-
彼氏と毎日セックスするのは異...
-
クンニしたことある人ー ま○こ...
-
キスすれば相手を好きでなくて...
-
彼氏のセックスが下手すぎで幻...
-
実家住まいの場合Hはホテル以外...
-
ふぇらでイカセテくれる うまい...
-
男性に質問です! 電話だけで勃...
-
兄妹や姉弟で、キスやエッチし...
-
彼女がフェラをしてくれません。
-
セックス中に動画や写真を撮る...
おすすめ情報
ただいま、当方側の問題がないPCで検証したところ、
表示されました。
長年の課題でしたので、とても助かりました。
すごく感謝しております。
ありがとうございました。