title: Resize Plot Area dynamically to see truncated text in Category Axis of a Clustered Bar Chart
body: <p>I am copying and pasting <code>Clustered Bar charts</code> from a <code>Workbook</code> into a <code>Powerpoint deck</code> created dynamically. The Bar charts Category Axis may have long text (Axis labels), that sometimes gets truncated. The <code>Wrap text</code> option for Category Axis is <code>greyed out</code>. So i want to move the <code>Plot Area of the Chart to the Right dynamically</code> to make the Category Axis truncated text visible.</p>
  
  <p><a href="https://i.stack.imgur.com/ZRbtC.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/ZRbtC.png" alt="enter image description here"></a></p>
  
  <pre><code>Sub ExportClusteredBarChartsToPowerpoint()
      Dim oPPT As Object: Set oPPT = CreateObject("PowerPoint.Application")
      With oPPT
          .Visible = True
          .Activate
      End With
  
      Dim oPres As Object: Set oPres = oPPT.presentations.Add
      Dim oSlide As Object
      Dim iNdx As Integer
      Dim oChart As ChartObject
      Dim oWS As Worksheet: Set oWS = ThisWorkbook.Sheets("ChartsSheet")
  
      iNdx = 1
      With oWS
          For Each oChart In oWS.ChartObjects
  
              oChart.Chart.ChartArea.Copy
  
              Set oSlide = oPres.slides.Add(iNdx, 12)       'ppLayoutBlank
              oSlide.Shapes.PasteSpecial 0, msoFalse           '0=ppPasteDefault
              Application.CutCopyMode = False
  
              With oSlide.Shapes(1)
                  .ScaleWidth 1.75, 0, 1 'msoTrue, msoScaleFromMiddle
                  .ScaleHeight 1.75, 0, 1 'msoTrue,msoScaleFromMiddle
                  oPPT.Windows(1).View.ZoomToFit = False
                  oPPT.Windows(1).View.Zoom = 98
              End With
              iNdx = iNdx + 1
          Next oChart
      End With    
  End Sub
  </code></pre>
  
  <p>Is this possible or is there an alternative solution using VBA?</p>