我正在尝试按名称选择一张幻灯片。我已经通过大纲添加了标题。下面是无法正常工作的代码。“幻灯片集合中未找到爱达荷州项目”
ActivePresentation.Slides("Idaho").Select
幻灯片的名称和标题占位符中的文本彼此无关。
除非重命名,否则演示文稿中的第一张幻灯片将被命名为“ Slide1”,第二张幻灯片将被命名为“ Slide2”,依此类推。
如果您特别需要一种方法来查找标题文本=“ 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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句