VBA Code to resize photo

[Malcolm torishi]

Hi
is there a code that will resize a photo saved in a fold on my desktop so I can automatically drop it in to a cell that’s already sized say 50 x 50
thank you

 

[igold]

How about this with the cell that you want the picture in, selected. Please change the path in red to match your source desktop folder picture path.

Sub InsSizePic()


    With ActiveSheet.Pictures.Insert([COLOR=#ff0000]"C:\Users\UserName\Pictures\2017-06\IMG_0516.JPG"[/COLOR])
        .ShapeRange.Height = 72
        .ShapeRange.Width = 72
    End With
    
End Sub

 

[jolivanes]

Or
(Select the Cell where it needs to be pasted into first)

Sub Insert_And_Size_Picture()
Dim a As String
a = CreateObject("wscript.shell").specialfolders("Desktop") & "\" & "Picture_Folder"    '<---- Change "Picture_Folder" to actual folder name
    With ActiveSheet.Pictures.Insert(a & "\" & "My_Car.JPG")    '<---- Change picture Name and extension as required
        With .ShapeRange
            .LockAspectRatio = msoFalse
            .Left = ActiveCell.Left
            .Top = ActiveCell.Top
            .Height = ActiveCell.Height
            .Width = ActiveCell.Width
        End With
    End With
End Sub