Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro help
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro help
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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
My excel macro recorder no longer shows up when recording macro | Excel Discussion (Misc queries) | |||
Macro needed to Paste Values and prevent Macro operation | Excel Discussion (Misc queries) |