使用 VBA 替换 Excel 中的 Powerpoint 数据

Question

I have some "tables" in excel that I export to a powerpoint every week (I say "tables" because they are actually just ranges of cells and not actually tables). Right now I have a macro that deletes all of the shapes from the powerpoint each week, and then a different macro to export the tables to the powerpoint. The issue with this is that it deletes everything from the powerpoint, including the titles and comments on the slides. So now I am trying to write code that just replaces the previous weeks tables. So far this is the code I have, however it does not work when I get to

pptpress.Slides(1).Shapes("Picture 8").Table.Cell(r, c).Shape.TextFrame.TextRange = Sheet2.Cells(r, c).Value

I assume it doesn't work because the range of cells are not actually tables? Anyways, does anyone have any advice on how to replace previous weeks data? I'm struggling over here

Sub UpdateTables()

    Dim pptapp As New PowerPoint.Application
    Dim pptpress As PowerPoint.Presentation
    
    Dim left As Double
    Dim top As Double
    Dim height As Double
    Dim width As Double
    
    Dim r As Integer
    Dim c As Integer
    
    Set pptpress = pptapp.Presentations.Open("xxxxxx")

    'Table update
    For r = 4 To 30
    
     For c = 2 To 12
     
        pptpress.Slides(1).Shapes("Picture 8").Table.Cell(r, c).Shape.TextFrame.TextRange = Sheet2.Cells(r, c).Value
        
    Next c
   Next r


End Sub

Answer 1

I assume it doesn't work because the range of cells are not actually tables?

Yes. The fact that the shape's name is "Picture 8" is a give-away also. In all likelihood, it's an EMF/WMF/etc picture that's been pasted into the PPT slide.

As @Dan suggests, it might be simplest to insert a new Table shape and work with it. Or if you have a particular table format you need to preserve, add a table manually to the slide, format it, then have your code put the data into it instead.

Answer 2

In order to replace old shapes (or in your case: tables), you could use a marker or a timestamp to identify what needs to be deleted. A great way for this are tags within PowerPoint. You can attach these to presentations, slides and shapes (maybe even more). They are invisible to the user but can be read / written via code (eg VBA).

This is what you need to look for: https://docs.microsoft.com/en-gb//office/vba/api/powerpoint.tags