Можно ли добавить новые столбцы в данные диаграммы PowerPoint с помощью Excel VBA? - PullRequest
Новая
       23

Можно ли добавить новые столбцы в данные диаграммы PowerPoint с помощью Excel VBA?

1 голос
/ 31 марта 2020

Я ищу способ изменить данные диаграммы powerpoint, добавляя / вставляя новые столбцы данных с помощью VBA. Моя проблема в том, что каждую неделю у меня есть данные в формате Excel, которые можно сообщать с помощью слайдов PowerPoint. Я должен следить за развитием нашего сервиса за последние четыре недели. например: << если мы на неделе 5 работы, я должен удалить данные недели 1 и вставить данные недели 5. >> Я должен сделать это для многих слайдов и прокомментировать все на powerpoint. затем, чтобы сделать это вручную, у меня уходит много времени. вот почему я хочу автоматизировать это.

'Мой код VBA 

Sub managePowerPointChart()
    Dim oPPTApp As PowerPoint.Application
    Dim oPPTFile As PowerPoint.Presentation
    Dim oPPTShape As PowerPoint.Shape
    Dim oPPTSlide As PowerPoint.Slide

    Set oPPTApp = CreateObject("PowerPoint.Application")
    oPPTApp.Visible = msoTrue
    Set oPPTFile = oPPTApp.Presentations.Open(Filename:=ThisWorkbook.Path & "\powerpoint.pptx")


    'Here I could modify a specific cell value
    Set ChartData = oPPTFile.Slides(1).Shapes(1).Chart.ChartData
    With ChartData
        .Activate
        .Workbook.Sheets(1).Range("D2").Value = 2020 'it's okay
        .Workbook.Close
    End With


    'Here i want to insert another column into chart data
    Set ChartData = oPPTFile.Slides(1).Shapes(1).Chart.ChartData
    With ChartData
        .Activate
        .Workbook.Sheets(1).Columns("E").Insert Shift:=xlToLeft
        .Workbook.Close
    End With

    oPPTFile.Close
End Sub

Вот снимок экрана с тем, что я хочу сделать с помощью VBA

Спасибо за помощь.

...