VBA help for a Macro (inserting picture from file)

Hi, I am new to VBA and macros and I was hoping that someone could help me writing the VBA to insert a photo from your personal files. I created the button, but I just need to write the VBA to pu...

Leads 4.26.xlsx7.6 MB

Excel on Mac

Macros & VBA

Matt Mickle

Bronze Contributor

May 01, 2018

Brady-

Please follow the below steps to accomplish your task:

1. Open the Visual Basic Editor (VBE) using Alt + F11

2. Insert > Module

3. Paste the below code in the new code module

Sub GetPic()
Dim fNameAndPath As Variant
Dim img As Picture
fNameAndPath = Application.GetOpenFilename(Title:="Select Picture To Be Imported")
If fNameAndPath = False Then Exit Sub
    Set img = ActiveSheet.Pictures.Insert(fNameAndPath)
    With img
       'Resize Picture to fit in the range....
       .Left = ActiveSheet.Range("D9").Left
       .Top = ActiveSheet.Range("D9").Top
       .Width = ActiveSheet.Range("D9:H9").Width
       .Height = ActiveSheet.Range("D9:D28").Height
       .Placement = 1
       .PrintObject = True
    End With
End Sub

4. Go back to the worksheet

5. Right Click on the button > Assign Macro

6. Select the GetPic Macro

After following these steps you should get the expected result.

regcurlee67

Copper Contributor

Oct 14, 2020

This works great except it is not placing my picture according to size and location. Some pictures are thin some are wide and the don't land exactly where I told them too.

Forum Discussion

VBA help for a Macro (inserting picture from file)

Resources