Insert BarCode (image) into Excel Sheet

barcode.vba

Sub InsertBarCode()

    ' Delete all inserted pictures, this will help us to delete BarCodes before creating new one.
    ActiveSheet.Pictures.Delete
    
    ' Your data, can be whatever such as color, style number etc.
    Data = Cells(2, 1)
    
    FilePath = "https://barcode.tec-it.com/barcode.ashx?data=" & Data
    
    ' Inserts the BarCode (image) with specific size & position and rotation.
    With ActiveSheet.Shapes.AddPicture(FilePath, msoFalse, msoTrue, 90, 30, 140, 40)
      ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Rotation = -90
    End With
    
End Sub