Powerpoint - makro til at slette en linje i tabel på 53 sider

Det kan sikkert lade sig gøre via direkte skrivning af VBA-kode

Herligt, er det noget du kan finde ud af?

Måske..

skal jeg lægge et eksempel op som du kan se på?

Der kommer måske nogen, der har bedre tid..

Rem VBA-koden er placeret i en Excel-fil med en reference til PowerPoint
Public pp As Object, systemSti As String
Public Sub justerPP()
    systemSti = ActiveWorkbook.Path + "\"

    Set pp = CreateObject("PowerPoint.Application")
    With pp
        .Visible = True
        .Presentations.Open Filename:=systemSti & "pp_test.pptx"    'ændres
    End With
   
    antal = pp.ActivePresentation.Slides.Count
   
    For f = 1 To antal
Rem flyt 3 til 4
        indhold = pp.ActivePresentation.Slides(f).Shapes(1).Table.Cell(3, 1).Shape.TextFrame.TextRange.Text
        pp.ActivePresentation.Slides(f).Shapes(1).Table.Cell(4, 1).Shape.TextFrame.TextRange.Text = indhold
   
Rem flyt 2 til 3
        indhold = pp.ActivePresentation.Slides(f).Shapes(1).Table.Cell(2, 1).Shape.TextFrame.TextRange.Text
        pp.ActivePresentation.Slides(f).Shapes(1).Table.Cell(3, 1).Shape.TextFrame.TextRange.Text = indhold
   
        pp.ActivePresentation.Slides(f).Shapes(1).Table.Cell(2, 1).Shape.TextFrame.TextRange.Text = ""
   
Rem slet række 1
        pp.ActivePresentation.Slides(f).Shapes(1).Table.Rows(1).Delete
    Next f
   
    pp.ActivePresentation.Save
    pp.ActivePresentation.Close
    Set pp = Nothing
End Sub

Hej

Den melder fejl på denne linje

systemSti = ActiveWorkbook.Path + "/"

Hej

Er der sat reference til PowerPoint fra Excel-filen?

Hej

Nej - koden er lagt direkte i PowerPoint filen, data er tastet direkte i tabel i PowerPoint.
Det kommer ikke fra et Excel ark.

Jeg har sat filnavnet ind i den lilje du har skrevet ændres ud for.

Hej

I min model har jeg lagt koden i et Excel ark
For at får fat i powerpoint er der en reference (Alt+F11 Tools  - References)
I powerpoint har jeg oprettet et antal dias og heri er tabellerne

Hej supertekst

1000 tak for hjælpen

/Lars