Pie Chart Plot Area Size

Question

I have a number of pie charts in a worksheet for which the information in the legend may vary. As a result the default plot area is a different size for each of them. I would like the plot area to be the same for each to provide a consistent look.

I am a novice regarding VBA and attempted to use the code shown below with a single value of 100% for each pie chart but was unsuccessful. 

http://www.andypope.info/ngs/ng34.htm

I believe my question is similar to the one below but no solution was presented for this thread:

https://answers.microsoft.com/en-us/msoffice/forum/msoffice\_powerpoint-mso\_winother/pie-chart-size-and-position-in-ppt/1f35b1cb-3212-43bd-b7f4-902693f189f8

Any help would be appreciated. File can be downloaded here: 

http://www.filedropper.com/piechartsize\_1

Answer 1

I actually managed to work around it by using the following Macro:

Sub Macro4()

'

' Macro4 Macro

'

' Keyboard Shortcut: Ctrl+q

'

For Each objCht In ActiveSheet.ChartObjects

With objCht.Chart

                .PlotArea.Width = 125

                .PlotArea.Height = 125

                .PlotArea.Left = 30

                .PlotArea.Top = 100

End With

Next

End Sub