Insert Image VBA

[pure vito]

Hi All,

I recorded this macro, I was hoping it would copy a part number typed into "E4" navigate to the folder with all the part images and then paste the number into the search bar and then paste the image onto my sheet this works fine,

But as you can see the part number is recorded into the macro meaning I will only ever see this part number image, and changing the part number in "E4" will not make a difference,

Is it possible to create a macro that will perform what I'm trying to achieve, assuming you can see what I'm trying to do

Thanks all,

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("E4").Select
    Selection.Copy
    ActiveSheet.Pictures.Insert( _
        "C:\Users\vmapp1\OneDrive\OneDrive - JAGUAR LAND ROVER\Pictures\parts\M8E2-279A70-AA.png" _
        ).Select
    Selection.ShapeRange.ScaleWidth 0.2671568627, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.2671568593, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.IncrementLeft -169.5
    Selection.ShapeRange.IncrementTop 52.5
    Range("E6").Select
End Sub

 

[Anthony47]

So you want to write a valid and known picture name in E4 and have that picture inserted in E4; if this is correct try replacing your initial 3 lines with the following:

    Range("E4").Select
'    Selection.Copy        'Useless, may be removed
    ActiveSheet.Pictures.Insert( _
        "C:\Users\vmapp1\OneDrive\OneDrive - JAGUAR LAND ROVER\Pictures\parts\" & Range("E4").Value & ".png").Select

In case you write the complete name & file extension in E4, then you have to remove that & ".png" from the instruction

Try...

 

[pure vito]

That works perfectly, thank you very much for taking the time, Champion!

 

[Anthony47]

Thank you for the feedback