Seite 2 von 2 ErsteErste 1 2
Ergebnis 11 bis 12 von 12

Thema: PowerPoint VBA Inhaltsverzeichnis mit Abschnitten in hinterste Folie schreiben (Office 2016)

  1. #11
    Office-Hilfe.com - Neuling
    Registriert seit
    23.06.2017
    Beiträge
    16
    Hallo Lars

    Klar, hier der angepasste Code.
    War dann doch leicht anders, als ich auf den ersten Blick vermutet hatte.


    Code:
    Sub TableOfContent()
    '*** Copyright by Pascal Mario Richard, 2017-06-26 ***
    
    Dim i As Long
    
    x = 2 'Agenda-Slide
    lsp = ActivePresentation.SectionProperties.Count 'No. of sections
    L = 1 'first line in shape
    
    'Read and write section titles
    With Application.ActivePresentation.SectionProperties
        For i = 1 To lsp
            If i < 2 Then
                ActivePresentation.Slides(x).Shapes(1).TextFrame.TextRange.Text = ActivePresentation.SectionProperties.Name(i) & vbCrLf
            Else
                    a = ActivePresentation.Slides(x).Shapes(1).TextFrame.TextRange
                    b = ActivePresentation.SectionProperties.Name(i) & vbCrLf
                    ActivePresentation.Slides(x).Shapes(1).TextFrame.TextRange.Text = a & i & " " & b
            End If
        Next i
        ActivePresentation.Slides(x).Shapes(1).TextFrame.TextRange.Text = "1 " & a & i - 1 & " " & b
    End With
    
    'Insert hyperlinks
    Do
            With ActivePresentation.Slides(x).Shapes(1).TextFrame.TextRange.Lines(L).ActionSettings(ppMouseClick)
                .Action = ppActionHyperlink
                .Hyperlink.Address = ""
                .Hyperlink.SubAddress = ActivePresentation.SectionProperties.FirstSlide(L)
            End With
        i = i + 1
        L = L + 1
    Loop Until L = lsp + 1
    
    End Sub

    Grüsse
    Pascal
    Our biggest competitor is ourselves! - Jet Li

    Bei sämtlichen Problemen mit Office --> Alt + F4 und Kaffee holen

  2. #12
    Office-Hilfe.com - Neuling
    Registriert seit
    19.06.2019
    Beiträge
    5
    Danke sehr Pascal :-)

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •  
Excel Ticker - News, Tipps und Tricks zu Microsoft Excel | SMS kostenlos versenden | Forenuser - Die Foren Findmaschine