title: Update PowerPoint chart without opening chart workbook or making it invisible
body: <pre><code>Sub OO()
  Dim oPPApp As Object, oPPPrsn As Object, oPPSlide As Object
  Dim oPPShape As Object
  Dim FlName As String
  
  '~~&gt; Change this to the relevant file
  FlName = "C:\Users\lich_\Documents\test.pptx"
  
  
  '~~&gt; Establish an PowerPoint application object
  On Error Resume Next
  Set oPPApp = GetObject(, "PowerPoint.Application")
  
  If Err.Number &lt;&gt; 0 Then
      Set oPPApp = CreateObject("PowerPoint.Application")
  End If
  Err.Clear
  On Error GoTo 0
  
  oPPApp.Visible = True
  Set oPPPrsn = oPPApp.Presentations.Open(FlName, WithWindow:=msoFalse) 
  Set oPPSlide = oPPPrsn.Slides(2)
  
  With oPPSlide.Shapes("Chart1").Chart.ChartData
  .ActivateChartDataWindow
  
  .Workbook.Worksheets("Sheet1").Range("B2").Value = 0.1231
  .Workbook.Close
  End With
  
  
  
  End Sub
  </code></pre>
  
  <p>As you can see above, I'm trying to edit the chart data in vba.</p>
  
  <p>But since I have control many charts later, I would like to make the workbook invisible ( or not open it at all if possible )</p>
  
  <pre><code>With oPPSlide.Shapes("Chart1").Chart.ChartData
  .ActivateChartDataWindow
  
  .Workbook.Worksheets("Sheet1").Range("B2").Value = 0.1231
  .Workbook.Close
  End With
  </code></pre>
  
  <p>In this code I opened by "ActivateChartDataWindow" method and change the data which I want and Closed.</p>
  
  <p>Is there any way to make the window invisible or to edit data without even opening?</p>
  
  <p>Thank you for your help in advance.</p>