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

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

On 16 Maj, 12:58, puiuluipui
wrote:
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,Pic*ture,*.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

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

On 16 Maj, 12:58, puiuluipui
wrote:
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,PicÂ*ture,*.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

.