Hi guys,
Im struggling to create a VBA to find and resize pictures in my Excel.
Im looking for help as no one in my team seems to have any VBA skills.
I hope one of you will be able to help me.
You can find below my code.
Private Sub CommandButton1_Click()
Dim i As Integer
i = 7 (as the first cell i want it to woek with is in the lign 7)
Do While Worksheets("SKU List").Cells(i, 1) <> "" (i want the macro to work until there is nothing anymore in collumn A)
Cells (Worksheets("SKU List").Cells(i, 10)) (I want the photo to be insert in collumn J)
country = Left(Worksheets("SKU List").Cells(i, 1), 2)
sku = Worksheets("SKU List").Cells(i, 9)
Dim path_files As String
path_files = "http://america.& country/i/" & country & "-" & sku & "-1-catalog.jpg"
Sheets("SKU List").Shapes.AddPicture path_files _
, msoTrue, msoTrue, 30, 2080 + (i - 2) * 120, 100, 100
Loop
End Sub
Thnaks in advance,
Best,
Max
Im struggling to create a VBA to find and resize pictures in my Excel.
Im looking for help as no one in my team seems to have any VBA skills.
I hope one of you will be able to help me.
You can find below my code.
Private Sub CommandButton1_Click()
Dim i As Integer
i = 7 (as the first cell i want it to woek with is in the lign 7)
Do While Worksheets("SKU List").Cells(i, 1) <> "" (i want the macro to work until there is nothing anymore in collumn A)
Cells (Worksheets("SKU List").Cells(i, 10)) (I want the photo to be insert in collumn J)
country = Left(Worksheets("SKU List").Cells(i, 1), 2)
sku = Worksheets("SKU List").Cells(i, 9)
Dim path_files As String
path_files = "http://america.& country/i/" & country & "-" & sku & "-1-catalog.jpg"
Sheets("SKU List").Shapes.AddPicture path_files _
, msoTrue, msoTrue, 30, 2080 + (i - 2) * 120, 100, 100
Loop
End Sub
Thnaks in advance,
Best,
Max