slang
05-13-2010, 08:49 AM
Just a quick one guys/gals.
I have a sheet where the user will be inserting two pictures but I want to resize and move them to specific areas.
I have that part working but how can I either stop reset the default picture# from incrementing or a quick way to reference the two pictures objects on the sheet.Picture 79??
ActiveSheet.Shapes("Picture 79").Select
With Selection.ShapeRange
.IncrementLeft 380.25
.IncrementTop 2.25
.ScaleWidth 0.89, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.89, msoFalse, msoScaleFromTopLeft
End With
Thanks again
I have a sheet where the user will be inserting two pictures but I want to resize and move them to specific areas.
I have that part working but how can I either stop reset the default picture# from incrementing or a quick way to reference the two pictures objects on the sheet.Picture 79??
ActiveSheet.Shapes("Picture 79").Select
With Selection.ShapeRange
.IncrementLeft 380.25
.IncrementTop 2.25
.ScaleWidth 0.89, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.89, msoFalse, msoScaleFromTopLeft
End With
Thanks again