Opgelost Foto aanpassen

[Excelvbas01]

In userform heb een webrowser gemaakt.
Ik zou graag dat de foto zich aanpast aan het formaat van webrowser.
kan iemand mij op weg helpen.

Ps: Als je op search klikt dan verschijnt de foto in webbrwoser.

 

[jverkerk]

Gevonden op internet

 

[HSV]

Meer heb je niet nodig.

Private Sub CommandButton1_Click()
 WebBrowser1.Navigate "https://storage.googleapis.com/acciojob-open-file-collections/image2.jpg"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    With WebBrowser1
      .Document.images(0).Width = .Width
      .Document.images(0).Height = .Height
    End With
End Sub

 

[Excelvbas01]

Beide oplossingen werken. Dank jullie wel

Ik heb nog een ding. Hoe kan ik de foto die zichtbaar is in webbrowser opslaan op c schijf.

 

[HSV]

In een standaard module:

Option Explicit
Public foto
Public Declare PtrSafe 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


Public Sub GURoL(url As String, FileName As String)
Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, url, FileName, 0, 0)
    If lngRetVal <> 0 Then
     MsgBox "Kan het plaatje niet uploaden van " & url & " naar " & FileName
    End If
End Sub

Maak een twee commandbutton aan in je UserForm en plaats onderstaande code.

Private Sub CommandButton1_Click()
 foto = "https://storage.googleapis.com/acciojob-open-file-collections/image2.jpg"
 WebBrowser1.Navigate foto
End Sub

Private Sub CommandButton2_Click()
 Call GURoL((foto), "c:\users\.......\documents\mooiefoto.jpg") 'veranderen waar nodig
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
    With WebBrowser1
      .Document.images(0).Width = .Width
      .Document.images(0).Height = .Height
    End With
End Sub

 

[Excelvbas01]

Top Dak je wel