vba - グラフやExcelシートなどのMS Power Pointリンクオブジェクトの更新

Question

毎週生成される ppt があります。リンクされたチャートを更新するためのvbscriptを作成しました..しかし、PPTでテーブルを作成するために使用したExcelシートを特定する方法が見つかりませんでした...

Dim pptChart
    Dim pptChartData
    Dim xlWorkbook
    Dim sld
    Dim shp
'opent the ppt
    strPresPath = "C:\oldpptlocation.pptx"


   Set oPPTApp = CreateObject("PowerPoint.Application")
  oPPTApp.Visible = True
  Set oPPTFile = oPPTApp.Presentations.Open(strPresPath)


For Each sld In oPPTFile.Slides 'ActivePresentation.Slides
    For Each shp In sld.Shapes
        If shp.HasChart Then
            Set pptChart = shp.Chart
            Set pptChartData = pptChart.ChartData
            pptChartData.Activate
            Set pptWorkbook = pptChartData.Workbook
            On Error Resume Next
            'update first link
            pptWorkbook.UpdateLink pptWorkbook.LinkSources(1)
            'On Error GoTo 0
            pptChart.Refresh
            pptWorkbook.Close True

        End If

    Next
Next
oPPTFile.SaveAs ("C:\updated_ppt.pptx")
oPPTFile.Close
oPPTApp.Quit
Set pptWorkbook = Nothing
Set pptChartData = Nothing
Set pptChart = Nothing

Answer 1

ElseIf現在、チャートの各形状をチェックしています。形状が かどうかをテストするために を追加する必要があります.HasTable。

If shp.HasChart Then
    'your code to update chart
ElseIf shp.HasTable Then
    'your code to update table
End If