Powerpoint 2010 VBA: Belirli bir başlıkla slayt numaralama yok

Question

Yakın zamanda gizli slaytları saymayacak bir makro yazdım. slayt gizlenir o zaman, slayt 3 gizliyse o kadar, numaralama giderdim tüm güverte Numaralandırmadaki sayılmayacaktır edilir:

Slide 1, Sayı 1 Slayt 2, Sayı 2 kaydırın 3, (No Number) Slide 4, Number 3

"Ajanda" başlığıyla aynı şeyi slaytlar için yapmanın bir yolu var mı? Slaytlarımın slayt gösterisi modunda gösterilmesini isterim ancak slaytların numaralandırılmasına sayılmasını istemiyorum.

Temel olarak, bir if ifadesinde slayt başlık metnine başvurmanın bir yolu var mı?

Teşekkürler!

' =========================================================================== 
' Purpose : Determine if a given slide has an Agenda-based title placeholder 
' Written By : Jamie Garroch of YOUpresent.co.uk 
' Inputs : oSld - the slide object to be examined 
' Outputs : Returns true if the word "agenda" is found in a title placeholder 
' Example Call : bAgendaSlide = IsSlideAgenda(ActiveWindow.View.Slide) 
' Notes : Search is case insensitive 
' =========================================================================== 
Function IsSlideAgenda(oSld As Slide) As Boolean 
    With oSld.Shapes 
    If .HasTitle Then 
     If Trim(UCase(.Title.TextFrame.TextRange.text)) Like "*AGENDA*" Then IsSlideAgenda = True 
    End If 
    End With 
End Function 

Answer 1

Bu doğru dönecektir. Aradığım şey bu.