' Macro para renumerar diapositivas no ocultas sin tenerlas en cuenta

' ChristianDvE 2020 www.christiandve.com

' Instrucciones completas paso a paso en https://www.christiandve.com/2020/06/powerpoint-numerar-diapositivas-no-ocultas-automaticamente/

Sub renumerar_diapositivas_no_ocultas_christiandve()

Dim diapo As Slide

Dim christiandve As Shape

Dim contador As Long

contador = -1

For Each diapo In ActivePresentation.Slides

If diapo.SlideShowTransition.Hidden Then

    diapo.HeadersFooters.SlideNumber.Visible = False

Else

    diapo.HeadersFooters.SlideNumber.Visible = True

    Set christiandve = numeroDiapo(diapo)

    contador = contador + 1

    If Not christiandve Is Nothing Then

        christiandve.TextFrame.TextRange = CStr(contador + 1)

    End If

End If

Next diapo

End Sub

Function numeroDiapo(diapoactual As Slide) As Shape

    For Each numeroDiapo In diapoactual.Shapes

    If numeroDiapo.Type = msoPlaceholder Then

        If numeroDiapo.PlaceholderFormat.Type = ppPlaceholderSlideNumber Then

        Exit Function

    End If

    End If

Next numeroDiapo

End Function