View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.charting
Andy Pope
 
Posts: n/a
Default how do i enlarge a pie chart by a fixed percentage?

Hi,

You need to place the code in a standard code module. From Excel
worksheet press ALT+F11 to open VBE (visual basic editor). You should
see a project window containing your workbook. Select this and use the
menu Insert Module to add a empty code module to your workbook. Double
click Module1 and then paste the code into the open code module.
You can now switch back to the spreadsheet ALT+F11. Select the chart to
be resize and press ALT+F8 to display available Macros. X should be in
the list, select and click Run.

Depending on your current security settings you may need to change it to
Medium in order to run the actual macro. If you are doing this at your
place of work you may have to check with you IT department about
changing security levels. Any way to check use the menu Tools Macro
Security. Select Medium. Restart excel and it should work.

If you just want to increase the size of the chart object see Jon's
reply for a more simple solution.

Cheers
Andy

ellen s. wrote:
Hi Andy,
I have no idea what that means. Could you somehow simply the language for
me, or at least show me where to start?

Thanks much!
Ellen

"Andy Pope" wrote:


Hi,

I think you have to resort to code to do this.

Sub x()
'
' enlarge pie plot area by % of current size
'
Dim sngLeft As Single
Dim sngTop As Single
Dim sngWidth As Single

With ActiveChart.PlotArea
sngLeft = .Left
sngTop = .Top
' move to top corner to allow for growth
.Left = 1
.Top = 1
sngWidth = .Width
.Width = sngWidth * 1.2 ' 20% enlargement
.Left = sngLeft + ((sngWidth - .Width) / 2)
.Top = sngTop + ((sngWidth - .Width) / 2)
End With

End Sub

Cheers
Andy

ellen s. wrote:

created a pie chart, and figured out how to drag the corner of plot area to
enlarge the chart size free-hand. how do i increase the chart size by
exactly 20% to show an increase of 20% in total business size over last
year's pie chart?


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info


--

Andy Pope, Microsoft MVP - Excel
http://www.andypope.info