ppt宏里vb跳转代码

ppt宏中（按钮）通过输入文字（如：王和感等），跳转到特定幻灯片页面（如：第115张或第88张），vb代码怎么编写？谢谢！如何批量对应，要不然要一个个的输入很麻烦，谢谢！... ppt宏中（按钮）通过输入文字（如：王和感等），跳转到特定幻灯片页面（如：第115张或第88张），vb代码怎么编写？谢谢！
如何批量对应，要不然要一个个的输入很麻烦，谢谢！展开

 我来答

1个回答

#热议# 生活中有哪些实用的心理学知识？

withQue
2012-04-05 · 超过21用户采纳过TA的回答

知道答主

回答量：39

采纳率：0%

帮助的人：55.3万

我也去答题访问个人页

关注

展开全部

VBA宏代码,仅供参考:
sub ptxt()
pt = InputBox("输入:") '输入文字
With ActivePresentation.SlideShowSettings '播放幻灯片设置
.Run
End With
If pt = "王和感" Then '输入的内容,对应特定幻灯片
SlideShowWindows(Index:=1).View.GotoSlide Index:=115 '跳转到特定幻灯片115张
Else
end if
End sub

追问

如何批量对应，要不然要一个个的输入很麻烦，谢谢！

追答

这取决于您具体的应用设计.假如一系列的名字对应各张幻灯片,可以在pt = InputBox("输入:")   这行上加一个数组用于储存您的资料.
Sub ptxt()
arn = Array(Array("甲", 1), Array("乙", 2), Array("丙", 3), Array("王和感", 115))   '以此类推,储存对应
pt = InputBox("输入:")
    With ActivePresentation.SlideShowSettings
        .Run
    End With
For Each ar In arn
If ar(0) = pt Then       '输入与数组的一个资料相同,跳转到对应数字的幻灯片
SlideShowWindows(Index:=1).View.GotoSlide Index:=ar(1)
Exit For
Else
End If
Next
End Sub