Macro help

[puiuluipui]

Hi, i need to modify this macro to insert a picture based on a value in cell
"A1"

Can this be done?
Thanks!


Sub Add_Picture()

'

'
Application.ScreenUpdating = False

'varible Picture1 is inserted down below - ***change both***
Picture1 =
Application.GetOpenFilename("Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP")
'edit "("Picture,*.*")" section to add or chanve visible file types

ActiveSheet.Pictures.Insert(Picture1).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 175
Selection.ShapeRange.Width = 234
Application.ScreenUpdating = True

End Sub

 

[Per Jessen]

Not sure how to understand 'based on value', but if A1 holds the
filename like 'MyPicture.JPG' then this should do it:

Sub Add_Picture()
Application.ScreenUpdating = False

MyPath = "C:\Temp\" ' Change to suit
PictName = Range("A1").Value
Picture1 = MyPath & PictName
ActiveSheet.Pictures.Insert(Picture1).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 175
Selection.ShapeRange.Width = 234

Application.ScreenUpdating = True
End Sub

Regards,
Per

 

[puiuluipui]

Thanks!

"Per Jessen" a scris:

Not sure how to understand 'based on value', but if A1 holds the
filename like 'MyPicture.JPG' then this should do it:

Sub Add_Picture()
Application.ScreenUpdating = False

MyPath = "C:\Temp\" ' Change to suit
PictName = Range("A1").Value
Picture1 = MyPath & PictName
ActiveSheet.Pictures.Insert(Picture1).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 175
Selection.ShapeRange.Width = 234

Application.ScreenUpdating = True
End Sub

Regards,
Per



.