click to enlarge an Excel chart

stevezmyname · 11-01-2009, 04:47 PM

Hello
I'm using Excel 2007
What I need to do is have a tab with just charts on it that gets data from another tab. There will be 20 charts on the chart tab. Instead of having buttons to enlarge or decrease size I would like to just be able to double click a single chart to increase the size by 50% then double clicking again would reduce the size to the original size.

I tried this code for increasing and will worry about decreasing it later.

Code:

Private Sub Chart1_Click()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartArea.Height = ActiveChart.ChartArea.Height + 10
    ActiveChart.ChartArea.Width = ActiveChart.ChartArea.Width + 10
End Sub

and this code...

Code:

Private Sub Chart1_Click()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartObjects.Select
    ActiveChart.ChartObjects.Height = ActiveChart.ChartObjects.Height + 10
    ActiveChart.ChartObjects.Width = ActiveChart.ChartObjects.Width + 10
End Sub

...it gives the error "Run-time error 5 Invalid procedure call or argument"
thanks for any help
Steve

11-01-2009, 04:47 PM	#1 (permalink)
stevezmyname New Member Join Date: Oct 2009 Posts: 7	click to enlarge an Excel chart Hello I'm using Excel 2007 What I need to do is have a tab with just charts on it that gets data from another tab. There will be 20 charts on the chart tab. Instead of having buttons to enlarge or decrease size I would like to just be able to double click a single chart to increase the size by 50% then double clicking again would reduce the size to the original size. I tried this code for increasing and will worry about decreasing it later. Code: Private Sub Chart1_Click() ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.ChartArea.Select ActiveChart.ChartArea.Height = ActiveChart.ChartArea.Height + 10 ActiveChart.ChartArea.Width = ActiveChart.ChartArea.Width + 10 End Sub and this code... Code: Private Sub Chart1_Click() ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.ChartObjects.Select ActiveChart.ChartObjects.Height = ActiveChart.ChartObjects.Height + 10 ActiveChart.ChartObjects.Width = ActiveChart.ChartObjects.Width + 10 End Sub ...it gives the error "Run-time error 5 Invalid procedure call or argument" thanks for any help Steve

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help Please!!	tbest08	Desktop Computers	7	07-20-2008 03:20 PM
Help Starving Children	jimkonow	Off Topic Chat	11	07-03-2008 02:48 PM