- Can I reduce or minimize the size of a picture in Excel 2007?
- Sub Picture1_Click()
- End Sub
- Sub Picture1_Click()
- ActiveSheet.Shapes.Range(Array("Picture 1")).Select
- Selection.ShapeRange.ScaleWidth 0.5, msoFalse, msoScaleFromTopLeft
- Selection.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
- End Sub