Hello, I'm still pretty new at this, and my vba code is a bit rushed although it works.
My question is, can I change the "If lngvar" parts to loop? Also will it work faster than "if then" statement? Thank you.
Sub GetShapeFromWeb()
On Error Resume Next
Dim var As String
Dim lngvar As Long
LR = Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To LR
var = Cells(x, 12).Value
lngvar = Len(var)
If lngvar = 7 Then
var = "000000" & var
ElseIf lngvar = 8 Then
var = "00000" & var
ElseIf lngvar = 9 Then
var = "0000" & var
ElseIf lngvar = 10 Then
var = "000" & var
ElseIf lngvar = 11 Then
var = "00" & var
ElseIf lngvar = 12 Then
var = "0" & var
Else
var = var
End If
Call InsertShape("http//wwwwebsitecom/" & var & ".jpg", Sheet1.Range("B2").End(xlUp).Offset(x - 1, 0))
Next x
Call FitAllPics.FitAllPics
errormsg:
Exit Sub
End Sub