(vba) 画像抽出時、ファイル名を表示したい

質問

vbaで指定するURLにある画像を抽出するものをつくりました。
一部------------------------------------
For Each e In oIE.Document.getElementsByTagName("img")
If LCase(e.nameProp) Like "*.jpg" Or LCase(e.nameProp) Like "*.jpeg" Then
Set s = ActiveSheet.Shapes(ActiveSheet.Pictures.Insert(e.href).Name)
------------------------------------
ユーザフォーム上にvbaで抽出したファイル名（例：abc.jpg等）を表示させたいのですが、どのように拡張記述すればよいでしょうか？

教えていただけたら幸いです。

理想は、ユーザフォームに
****.jpg
****.jpg
・・・・
　トータル◯件
というようなのをフォーム上に出せたらうれしいです。

回答No.1

real beatin（@realbeatin） · ベストアンサー

こんにちは。

まず、下準備として、ご提示のコードの直下に、
　　DoEvents
　　s.AlternativeText = e.href
以上の２行を書き加えてから画像を取り込んでください。
これによって、挿入された図の属性として、
画像のURLを保持します。

ユーザーフォームのコントロールをデザインします。
　UserForm1
　┣　ListBox1
　┗　Label1
コントロールの名前に齟齬が生じないように、
必要なら、下記コード側のオブジェクト名を書換えてください。
以下、
　ListBox1　・・・　画像ファイル名（またはＵＲＬ）リスト
　Label1　・・・　画像ファイル名（またはＵＲＬ）リストの総件数
を表示する記述です。

' ' //
Sub Re9322829w()
Dim ary() As String
Dim s As Shape
Dim cnt As Long
　　ReDim ary(1 To ActiveSheet.Shapes.Count)
　　For Each s In ActiveSheet.Shapes
　　　　If s.AlternativeText Like "*.jpg" Or s.AlternativeText Like "*.jpeg" Then
　　　　　　cnt = cnt + 1
　　　　　　ary(cnt) = Mid(s.AlternativeText, InStrRev(s.AlternativeText, "/") + 1)
'　　　　　　ary(cnt) = s.AlternativeText　'　フルパスを表示したい場合
　　　　End If
　　Next
　　ReDim Preserve ary(1 To cnt)

　　Load UserForm1
　　With UserForm1
　　　　.ListBox1.List = ary()
　　　　.Label1.Caption = cnt
　　　　.Show
　　End With
End Sub
' ' //

お礼

やりたいことがすべてできました。
大変ありがとうございました。

また、わかりやすいプログラムで大変感謝しております。