VBA PowerPoint名前でスライドを選択します

Question

名前でスライドを選択しようとしています。アウトラインでタイトルを追加しました。以下は機能していないコードです。「スライドコレクションに含まれていないアイデアIDAHO」

ActivePresentation.Slides("Idaho").Select

.

Answer 1

タイトルプレースホルダのスライドの名前とテキストは互いに関係なく何も関係ありません。

あなたが名前を変更しない限り、プレゼンテーション内の最初のスライドは "Slide1"、2番目の "slide2"などと命名されます。

タイトルtext="idaho"が具体的に見つける方法が必要な場合は、プレゼンテーション内のすべてのスライドを検索して、最初のスライドを検索して、その基準を満たす最初のスライドを返す必要があります。例えば：

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

古い質問を復活させたが、私はこれを投げたかった。

ActivePresentation.Slides("MySlideName").Selectが機能しない可能性がありますが、これは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

.

これは、もちろん、「myslidename」という名前のスライドがあると仮定しています。あなたのコードは、Item MySlideName not found in the Slides collection.エラー（err.number = -2147188160）を適切に処理することに対処する必要があります。