我正在尝试按名称选择一张幻灯片。我通过大纲添加了标题。下面是不起作用的代码。 “在幻灯片集合中找不到爱达荷州项目”
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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)