rhudgins
04-29-2010, 11:52 AM
There are two charts in my attached sheet. I plan to add more charts to the sheet
Here is my code so far. I need to modify it so that I can click on any picture in the worksheet and run EnlargeCharts and then click again and run ResizeCharts
Sub EnlargeCharts()
ActiveSheet.Shapes("Picture 14").Select
Selection.ShapeRange.ScaleHeight 2.02, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.47, msoFalse, msoScaleFromBottomRight
Range("M33").Select
ResizeCharts
End Sub
Sub ResizeCharts()
ActiveSheet.Shapes("Picture 14").Select
Selection.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.69, msoFalse, msoScaleFromBottomRight
End Sub
Here is my code so far. I need to modify it so that I can click on any picture in the worksheet and run EnlargeCharts and then click again and run ResizeCharts
Sub EnlargeCharts()
ActiveSheet.Shapes("Picture 14").Select
Selection.ShapeRange.ScaleHeight 2.02, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.47, msoFalse, msoScaleFromBottomRight
Range("M33").Select
ResizeCharts
End Sub
Sub ResizeCharts()
ActiveSheet.Shapes("Picture 14").Select
Selection.ShapeRange.ScaleHeight 0.5, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 0.69, msoFalse, msoScaleFromBottomRight
End Sub