title: Chart Data Table Sizing Issue
body: <p>I am running a macro to resize my plot area to make all graphs uniform within a report. However, when resizing the plot area the Chart Data Table resizes as well and the Labels for the rows in the Data Table become text wrapped. This issue is fixed if I manually resize the Plot Area slightly and then the text is fixed and is autofit and no longer text wrapped to take up three or four lines. Any way to fix this? This is my current code.</p>
  
  <pre><code>Sub Color_Loop_Series()
  Dim sht As Worksheet
  Dim CurrentSheet As Worksheet
  Dim cht As ChartObject
  Dim ser As Series
  
  For Each sht In ActiveWorkbook.Worksheets
  For Each cht In sht.ChartObjects
  cht.Activate
  ActiveChart.ChartType = xlLineMarkers
  ActiveChart.Legend.Position = xlLegendPositionBottom
  ActiveChart.Legend.Font.Size = 9
  ActiveChart.PlotArea.Select
  Selection.Width = 380
  Selection.Left = 11
  Selection.Top = 3
  Selection.Height = 250
  ActiveChart.Axes(xlValue).AxisTitle.Position = xlAxisPositionLeft
  ActiveChart.DataTable.Font.Size = 5.5
  Next cht
  Next sht
  End Sub
  </code></pre>