Macro help
in [General]
|
From: puiuluipui on 16 May 2010 06:58 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
From: Per Jessen on 16 May 2010 13:42 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 <puiului...(a)discussions.microsoft.com> 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,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
From: puiuluipui on 18 May 2010 12:13 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 <puiului...(a)discussions.microsoft.com> > 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,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 > > . >
|
Pages: 1 Prev: Simple Form Entry not workin Next: Practice Test Using Excel |