Converting a Image URL to Actual Image Size

[ahobbs01]

I used this code from another VBA question thread but I received an error. I am trying to extract the image from the URL without changing the size of the image.It worked for some of the images but then errored out.

 

[ahobbs01]

I used this code from another VBA question thread but I received an error. I am trying to extract the image from the URL without changing the size of the image.It worked for some of the images but then errored out.

I changed it to be Range("D2", Cells (Rows.Count, "D") .End (xlUP) ) and that still did not remove the error

 

[Jaafar Tribak]

The RowHeight Property ranges from 0 to 409 points so you are probably getting that error because the Picture size (Height) exceeds 409 points.

 

[ahobbs01]

The RowHeight Property ranges from 0 to 409 points so you are probably getting that error because the Picture size (Height) exceeds 409 points.

Yes. Is there a way to tell it to skip that one if it errors out like that?

 

[Jaafar Tribak]

Yes. Is there a way to tell it to skip that one if it errors out like that?

Skip it with an IF clause something along these lines :
If .Height * 0.75 <= 408 Then URL.EntireRow.RowHeight = .Height End If

EDIT: I am not entirely sure the Picture object returned by the Pictures.Insert Function is in Pixels or in Points.
Try removing *0.75 and see if it works as well.

 

[ahobbs01]

Where does the IF statement go? I've tried different ways and I get the same error

 

[Jaafar Tribak]

Please, place your code inside Code Tags </> so anyone wanting to help can copy it for testing.

You are getting the error because you still have the following line before End With
URL.EntireRow.RowHeight = .Height
Remove that line and the error should not happen.

 

[ahobbs01]

Please, place your code inside Code Tags </> so anyone wanting to help can copy it for testing.

You are getting the error because you still have the following line before End With
URL.EntireRow.RowHeight = .Height
Remove that line and the error should not happen.

.Height is now Invalid or unqualified reference.

Sub InsImg()

    Dim URL As Range
        
    For Each URL In Range("D2", Cells(Rows.Count, "D").End(xlUp))
        With URL.Parent.Pictures.Insert(URL.Value)
            .Left = URL.Offset(0, 1).Left
            .Top = URL.Offset(0, 1).Top
            
        End With
            
            If .Height * 0.75 <= 408 Then
            URL.EntireRow.RowHeight = .Height
            End If
        
                
    Next

End Sub

 

[Jaafar Tribak]

Sub InsImg()
    Dim URL As Range     
    For Each URL In Range("D2", Cells(Rows.Count, "D").End(xlUp))
        With URL.Parent.Pictures.Insert(URL.Value)
            .Left = URL.Offset(0, 1).Left
            .Top = URL.Offset(0, 1).Top
            If .Height * 0.75 <= 408 Then
                URL.EntireRow.RowHeight = .Height
            End If
        End With
    Next
End Sub

Also, try the smae code but without the * 0.75 and see what happens

 

[ahobbs01]

Sub InsImg()
    Dim URL As Range    
    For Each URL In Range("D2", Cells(Rows.Count, "D").End(xlUp))
        With URL.Parent.Pictures.Insert(URL.Value)
            .Left = URL.Offset(0, 1).Left
            .Top = URL.Offset(0, 1).Top
            If .Height * 0.75 <= 408 Then
                URL.EntireRow.RowHeight = .Height
            End If
        End With
    Next
End Sub

Also, try the smae code but without the * 0.75 and see what happens

Removing the * 0.75 solved it. Thank you!