Webページからユーザーフォームに画像を転送するにはVBA（Excel）

Question

このトピックに関するヘルプが必要です。

Image Html Code;

<IMG src="/SigortaliTescil/PG" width=50 height=25> 

私のVBAコード（エクセル）

Private Sub CommandButton3_Click() 
If TextBox1.Text = "" Then 
MsgBox "Lütfen Listeden Seçim Yapınız" 
Exit Sub 
End If 

Dim ie As Object 
Dim kontrol As String 

Set ie = CreateObject("internetexplorer.application") 

With ie 

.Navigate "https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap" 
.Visible = True 

Set tags = ie.Document.getElementsByTagName("img") 
For Each tagx In tags 
    If tagx.src = "/SigortaliTescil/PG" Then 
    WebBrowser1.img = tagx.Doc 

    End If 
Next 

はどのようにして、ピクチャボックスまたはウェブブラウザで画像を表示することができます。

ご協力いただきありがとうございます。

Answer 1

は、あなたのモジュールの上部にURLDownloadToFile機能を宣言します。

Private Declare Function URLDownloadToFile Lib "urlmon" _ 
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ 
ByVal szURL As String, ByVal szFileName As String, _ 
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 

は、フォーム上のイメージコントロールを使用してpicBoxそれを呼び出します。その後に自分のサブ変化：

Private Sub CommandButton3_Click() 

Const picURL = "https://uyg.sgk.gov.tr/SigortaliTescil/PG" 
Const dLoadPath = "C:\Desktop\downloadedPic.jpg" 'or whatever is appropriate 

....

With ie 
    .Navigate "https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap" 
    .Visible = True 
    While ie.readyState <> READYSTATE_COMPLETE 
     DoEvents 
    Wend 

    Set tags = ie.Document.getElementsByTagName("img") 
    If tagx.src = picURL Then 
     'downloads to the dLoadPath filepath on the PC/Network - may wish to delete after?? 
     Dim retVal as Variant 
     retVal = URLDownloadToFile(0, picURL, dLoadPath, 0, 0) 
     Me.picBox.Picture = LoadPicture(dLoadPath) 
     Exit Sub 
    End if