title: Copy/paste Excel charts to PowerPoint and break links
body: <p>I want to copy paste several charts to PowerPoint using VBA (Excel and PowerPoint 2013). My macro below works fine as long as I don't try to break the graph connection between Excel and PowerPoint - which I absolutely need to do.</p>
  
  <p>I've looked up on Google and found people suggesting to use the .Breaklink method: it works quite great and actually breaks the links as long as there is no more than one graph on my sheet. If there are at least two graphs, it will properly copy the first one and then throw a "MS PowerPoint has stopped working" message while working on the second graph. </p>
  
  <p>How should I proceed?   </p>
  
  <p>I've tried to apply the .BreakLink method on both the .Chart.ChartData and .Shape objects to no avail. </p>
  
  <pre><code>    Sub WhyIsThisWrong()
      Application.ScreenUpdating = False
      Dim aPPT As PowerPoint.Application
      Dim oSld As PowerPoint.Slide
      Dim oShp As PowerPoint.Shape
      Dim oCh As ChartObject
  
        Set aPPT = New PowerPoint.Application
        aPPT.Presentations.Add
        aPPT.Visible = True
  
        For Each oCh In ActiveSheet.ChartObjects
          oCh.Activate
          ActiveChart.ChartArea.Copy
  
          aPPT.ActivePresentation.Slides.Add aPPT.ActivePresentation.Slides.Count + 1, ppLayoutText
          Set oSld = aPPT.ActivePresentation.Slides(aPPT.ActivePresentation.Slides.Count)
  
          oSld.Shapes.PasteSpecial(DataType:=ppPasteDefault).Select
  
          'Something is wrong here
          With oSld.Shapes(3)
            If .Chart.ChartData.IsLinked Then
              '.Chart.ChartData.BreakLink
              .LinkFormat.BreakLink
            End If
          End With
  
        Next oCh
  
      Set oSld = Nothing
      Set aPPT = Nothing
      Application.ScreenUpdating = True
      End Sub
  </code></pre>