hola si ahora se entiende mejor, siempre es mejor especificar lo mejor posible todo, cuando se formula una pregunta.
bien me fije y la forma de saver si se cargo es mirando el tamaño de la imagen (FileSize)
lo que decia freeze, no funcionaria porque el codigo de fuente siempre va a ser igual por mas que la imagen no se cargue.
te paso un ejemplo con una pagina que por lo que veo no carga dos imagenes la 3 y la 7 en tal caso remplaza las imagenes por otra, y tambien te puse un ejemplo de como obtener otros datos
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.wikilearning.com/mi_primera_aplicacion_cliente-wkccp-7936-5.htm"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
With WebBrowser1.Document.images
For i = 0 To .length - 1
Debug.Print "-------- Imagen " & i & "-----------"
Debug.Print "Ancho: " & .Item(i).Width 'Ancho
Debug.Print "Alto: " & .Item(i).Height 'Alto
Debug.Print "Tamaño: " & .Item(i).FileSize 'Tamaño
Debug.Print "Texto alternativo: " & .Item(i).alt 'Texto alternativo
Debug.Print "Direccion: " & .Item(i).src 'Direccion de la imagen
Debug.Print "-------------------------------------" & vbCrLf
If .Item(i).FileSize = -1 Then
MsgBox "La Imagen " & i & " no se cargo y sera remplzada por otra"
.Item(i).src = "C:\WINDOWS\A pescar.bmp"
End If
Next
End With
End Sub
Saludos
Autor
En línea
