VBA: Insert URL Photos

[NeoSez]

Hi, two questions.

1. How do I insert the pictures via hyperlink, as an object so someone external can view the pictures. I tried to modify it but it returning a " ... End With" error.
2. Also, can I change this script to designate which column to insert the photos into? For example, I want to insert the pictures in column A.

Sub InstallPictures()

    Dim i As Long, v As String, Pic

    On Error Resume Next

    For i = 1 To 1903

        v = Cells(i, "G").Value

        If v = "" Then Exit Sub

        Set Pic = ActiveSheet.Pictures.Insert(v)

        With Pic

            .LockAspectRatio = msoFalse

            .Width = 100

            .Height = 100

            .Left = Cells(i, "h").Left + Cells(i, "h").Left.Width / 2 - .Width / 2

            .Top = Cells(i, "h").Top + Cells(i, "h").Height / 2 - .Height / 2

        End With

    Next i

    On Error GoTo 0

End Sub

 

[mrshl9898]

There was no End if, fixed that part.

Does it insert them into H? Change the "H" to "A" in .Top and .Left

Sub InstallPictures()

    Dim i As Long, v As String, Pic

    On Error Resume Next

    For i = 1 To 1903

        v = Cells(i, "G").Value

        If v = "" Then Exit Sub
        End If

            Set Pic = ActiveSheet.Pictures.Insert(v)

            With Pic

            .LockAspectRatio = msoFalse

            .Width = 100

            .Height = 100

            .Left = Cells(i, "h").Left + Cells(i, "h").Left.Width / 2 - .Width / 2

            .Top = Cells(i, "h").Top + Cells(i, "h").Height / 2 - .Height / 2

            End With

    Next i

    On Error GoTo 0

End Sub

 

[NeoSez]

mrshl9898 Thank you for taking the time to provide a solution.​

I tried your script and encountered an error. I don't know what it mean.
To answer your question, yes, the photos are meant to be inserted into H, but I can try inserting into A as well.

Error
"End if without block if"

If v = "" Then Exit Sub
        End If