Struggling with VBA

[mxg14]

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

 

[CRUTHERFORD]

Hi Max,

Below is something i have used in the past - you may need to amend slightly for what you need.

<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, sans-serif; white-space: inherit;">Sub PicReSize()
Dim MySht As Worksheet
Dim MyPic As Shape
Dim MyLeft As Single, MyTop As Single

' position in Pixel relative to top/left of sheet
MyTop = 50
MyLeft = 50

' alternatively position to the top/left of

#VALUE!

#VALUE!