Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]()
....
Sheets("Actions").Select Range("B16").Select sImageToLoad = Sheets("Macros").Range("A2") ActiveSheet.Pictures.Insert (sImageToLoad) ActiveSheet.Shapes ("Picture 37") Selection.ShapeRange.ScaleWidth 1.34, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.34, msoFalse, msoScaleFromTopLeft .... I need help with the proper format to make "Picture 37" a variable in the function. Each time this step is run in large macro, the picture number changes. Many thanks in advance. _Nate |
#2
![]()
Posted to microsoft.public.excel.misc
|
|||
|
|||
![]() PictureNumber = 137 PictureName = "Picture " & PictureNumber Sheets("Actions").Select Range("B16").Select sImageToLoad = Sheets("Macros").Range("A2") ActiveSheet.Pictures.Insert (sImageToLoad) ActiveSheet.Shapes (PictureName) Selection.ShapeRange.ScaleWidth 1.34, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.34, msoFalse, msoScaleFromTopLeft "_Nate" wrote: .... Sheets("Actions").Select Range("B16").Select sImageToLoad = Sheets("Macros").Range("A2") ActiveSheet.Pictures.Insert (sImageToLoad) ActiveSheet.Shapes ("Picture 37") Selection.ShapeRange.ScaleWidth 1.34, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.34, msoFalse, msoScaleFromTopLeft .... I need help with the proper format to make "Picture 37" a variable in the function. Each time this step is run in large macro, the picture number changes. Many thanks in advance. _Nate |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Insert, position, and resize a picture w/ Macro | Excel Discussion (Misc queries) | |||
Macro to enlarge a picture | Excel Discussion (Misc queries) | |||
delete picture with macro | Excel Discussion (Misc queries) | |||
Position Picture with macro | Setting up and Configuration of Excel | |||
Copying as Picture Link - using Macro | Excel Discussion (Misc queries) |