vba powerpoint sélectionnez une diapositive par nom

Question

Je suis en train de sélectionner une diapositive par son nom.J'ai ajouté un titre via le contour.ci-dessous est le code qui ne fonctionne pas."l'élément de l'Idaho ne trouve pas dans la collection de diapositives"

ActivePresentation.Slides("Idaho").Select

Answer 1

Le nom de la diapositive et le texte dans le titre portholder ne rien se passer les uns avec les autres.

sauf si vous y avez renommé, la première diapositive de la présentation sera nommée "diapositive1", la seconde "diapositive2" et ainsi de suite.

Si vous avez spécifiquement besoin d'un moyen de localiser la diapositive dont le titre texte="idaho", vous devez écrire une fonction pour rechercher toutes les diapositives de la présentation et renvoyer la première fois que cela répond à vos critères.Par exemple:

Sub TestMe()
    Dim oSl As Slide
    Set oSl = FindSlideByTitle("idaho")

    If Not oSl Is Nothing Then
        MsgBox "Found your title on slide " & CStr(oSl.SlideIndex)
    End If

End Sub
Function FindSlideByTitle(sTextToFind As String) As Slide
    Dim oSl As Slide

    For Each oSl In ActivePresentation.Slides
        With oSl.Shapes.Title.TextFrame
            If .HasText Then
                If UCase(.TextRange.Text) = UCase(sTextToFind) Then
                    Set FindSlideByTitle = oSl
                End If
            End If
        End With
    Next

End Function

Answer 2

Faire revivre une vieille question, mais je voulais la jeter dans ce.

Alors qu'il est possible que ActivePresentation.Slides("MySlideName").Select ne fonctionne pas, ce qui fonctionne pour moi dans PPT 2010:

Dim PPTObj As PowerPoint.Application
Set PPTObj = New PowerPoint.Application
Dim PPTClinic As PowerPoint.Presentation
Set PPTClinic = PPTObj.Presentations.Open(FileName:="Your File Name Here")
PPTClinic.Slides("MySlideName").Select

Bien entendu, cela suppose qu'il existe une diapositive nommé "MySlideName".Votre code devra traiter gracieusement de la manipulation de la Item MySlideName not found in the Slides collection. erreur (err.number = -2147188160).