Excel VBAでPowerPointデータシートのチャートオブジェクトを編集する

Question

Excel VBAで更新する必要のあるPowerPointプレゼンテーションがあり、チャート内のデータシートにデータを追加しようとしています。コードの下に。これを行うには、Excel VBAでPowerPointプレゼンテーションを開き、Excelが開いていることを前提にしてそこから範囲をとり、DataChartに貼り付けます。

私はまだオブジェクトにかなり新しいですが、PowerPointオブジェクトにはまだまだ多く、そこに貼り付ける方法はわかりません。オブジェクトはmsoEmbeddedOLEObjectであり、OLEFormat.progIDは "MSGraph.Chart.8"であり、悲しいことに私は理解しません。

Public sPath As String, sFile As String, sFilePPT As String 

Public PPApp As PowerPoint.Application 
Public PPPres As PowerPoint.Presentation 
Public PPSlide As PowerPoint.Slide 
Public PPShape As PowerPoint.Shape 
Public PPChart As PowerPoint.Chart 
Public PPChartData As PowerPoint.ChartData 
Public cTable As Excel.ListObject 


Sub OpenPPT() 

sPath = ThisWorkbook.Path & "\" 
sFilePPT = "Presentation1.pptx" 

On Error Resume Next 
'==> Check if PowerPoint is running 
    Set PPApp = GetObject(, "PowerPoint.Application") 
    If PPApp Is Nothing Then 
'==> If PowerPoint is not running, create new instance 
     Set PPApp = CreateObject("PowerPoint.Application") 
'==> and make it visible (PowerPoint must be visible to be used) 
     PPApp.Visible = True 
     Set PPPres = PPApp.Presentations.Open(sPath & sFilePPT) 
    End If 
On Error GoTo 0 

'==> Reference presentation and slide 
On Error Resume Next 
'==> If there's at least one presentation, use it 
    If PPApp.Windows.Count > 0 Then 
     Set PPPres = PPApp.ActivePresentation 
'==> use active slide 
     Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex) 
    Else 
     MsgBox "PowerPoint Presentation not found" 
     Exit Sub 
    End If 
On Error GoTo 0 

Set PPSlide = Nothing 
Set PPPres = Nothing 
Set PPApp = Nothing 

End Sub 


Sub test() 

Dim i As Byte 
Dim r As Range 

Call OpenPPT 

Set PPApp = GetObject(, "PowerPoint.Application") 
Set PPPres = PPApp.Presentations(1) 
Debug.Print PPPres.Name 
Set PPSlide = PPPres.Slides(2) 
PPSlide.Select 
Debug.Print PPSlide.Name 
Set PPShape = PPSlide.Shapes(2) 
PPShape.Select 

If PPShape.OLEFormat.progID = "MSGraph.Chart.8" Then 
    Set r = Workbooks("Budget_CM11.xlsm").Worksheets("Recap").Range("AQ12:AY17") 
    r.Copy 
'==> I see it opens the DataChart of the Chart for editing 
    PPShape.OLEFormat.DoVerb 2 

'code needed here that should copy the Excel range 
'within the PowerPoint Object (Chart?) Data 

End If 



End Sub 

Answer 1

唯一の答えは、手動でプレゼンテーションのグラフを新しい形式に変換することでした。今すぐデータテーブルに対処することができますが、PowerPointでExcelインスタンスを作成するときにちょっとしたことがあります。私はそれが最も効率的であるかどうかはわかりませんが、うまくいきます。 PowerPointプレゼンテーションを開くコードは変更されません。コードの下

：

Option Explicit 

Public sPath As String, sFile As String, sFilePPT As String 

Public PPApp As PowerPoint.Application 
Public PPPres As PowerPoint.Presentation 
Public PPSlide As PowerPoint.Slide 
Public PPShape As PowerPoint.Shape 
Public PPChart As PowerPoint.Chart 
Public PPChartData As PowerPoint.ChartData 

Sub test() 
Application.ScreenUpdating = False 

Dim i As Byte 
Dim r As Range 
Dim wb As Workbook 
Dim ws As Worksheet 

Call OpenPPT 

Set PPApp = GetObject(, "PowerPoint.Application") 
Set PPPres = PPApp.Presentations(1) 
Set PPSlide = PPPres.Slides(2) 
Debug.Print PPSlide.Name 
Set PPShape = PPSlide.Shapes(2) 
Set PPChart = PPShape.Chart 
Set PPChartData = PPChart.ChartData 
PPChartData.Activate 
Set wb = PPChartData.Workbook 
Set ws = wb.Worksheets(1) 

Set r = Workbooks("Budget_CM11.xlsm").Worksheets("RECAP").Range("AQ12:AY17") 
r.Copy 
ws.Range("B2:J7").PasteSpecial Paste:=xlPasteValues 
Application.CutCopyMode = False 
wb.Close True 
PPChart.Select 

Application.ScreenUpdating = True 
End Sub