VBA Macro to Insert .jpg in to a worksheet

[do17d0n]

Hello,

I am new to VBA Macro code writing.

Using a command button, I would like to insert a .jpg in to a worksheet. This .jpg would get pulled from a shared folder. The command would know to pull the correct .jpg using a matching cell name. And ideally, the .jpg would automatically get sized to fix an already sized cell box.

Please help with the code necessary to execute the above thought process.

Thank you!

 

[jxb]

Why do you get when you recorded the macro? This would be your starting point
If would be a matter of of changing the macro to grab the file name from the cell (adding it to the shared folder path, a constant I guess in your problem) to create a full path so that the macro knows which file to insert

 

[jolivanes]

Or:
Picture name without extension is in Cell L1. Change accordingly.
Change the code if it has the extension in Cell L1. Also change the code if it is a ".jpeg" extension.
Change the path to fit the actual.

Sub Maybe()
    ActiveSheet.Pictures.Insert("C:\Users\Rembrand\Pictures\My Pictures\" & Range("L1") & ".jpg").Name = "New Picture"
    With ActiveSheet.Shapes("New Picture")
        .LockAspectRatio = msoFalse
        .Left = Cells(1, 3).Left    '<---- Left side of Column C
        .Top = Cells(4, 1).Top    '<---- Top of Row 4
        .Height = Cells(20, 1).Top - Cells(4, 1).Top    '<---- Difference Row 20 and Row 4
        .Width = Cells(1, 12).Left - Cells(1, 3).Left    '<---- Difference Column 12 (= L) and 3 (= C)
    End With
End Sub