P
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
"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