Buy Los Hombres De Paco

area



'This is an example of how to resize the chart area in several charts

Sub SetChrtSize_Test () Dim

ChartObject
chtobj As Chart Dim As

objChart' resize the chart area in the active chart
ActiveChart. ActiveChart.ChartArea.Height
ChartArea.Width = 1000 = 80


ActiveChart.ChartArea.Interior.Color = 255 'Resize the plot area

ActiveChart.PlotArea.Height ActiveChart.PlotArea.Width = 1200 = 800
ActiveChart . PlotArea.Interior.Color

= 577 'Resize legend

ActiveChart.Legend.Width ActiveChart.Legend.Interior.Color = 255 = 33

' change size chart in all the graphics area of \u200b\u200bthe active sheet (1) For Each chtobj
In ActiveSheet.ChartObjects
chtobj.Width = 250 = 170

chtobj.Height



Next End Sub