Macro help
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
|