重新访问时重置初始ComboBox文本

时间:2017-12-15 16:41:55

标签: vba search combobox menu powerpoint

首先让我说我是一个严格的代码初学者 - 我在这里写的所有内容我已经在几个小时的YouTube,论坛和反复试验中拼凑而成 - 所以我实际上并不知道我在做什么!因此,请对任何回复温和! (如果我问愚蠢的问题/澄清,请耐心等待。)

我在PowerPoint(产品知识工作帮助)工作......我在主页幻灯片上放入一个下拉菜单,当选择列表中的项目时,它需要用户到特定幻灯片。我已经用下面的代码得到了那么多(通过一些奇迹!)。

Sub AddDropDownItems()
ComboBox1.AddItem "mesh"
ComboBox1.AddItem "reo"
ComboBox1.AddItem "tape"
ComboBox1.AddItem "film"
ComboBox1.AddItem "tube"
ComboBox1.ListRows = 5
End Sub

Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.Value
Case Is = "mesh"
ActivePresentation.SlideShowWindow.View.GotoSlide 2
Case Is = "reo"
ActivePresentation.SlideShowWindow.View.GotoSlide 3
Case Is = "tape"
ActivePresentation.SlideShowWindow.View.GotoSlide 4
Case Is = "film"
ActivePresentation.SlideShowWindow.View.GotoSlide 5
Case Is = "tube"
ActivePresentation.SlideShowWindow.View.GotoSlide 6
End Select
End Sub

用户前往的每张幻灯片,都有一个超链接返回" home"菜单幻灯片。

我选择并编辑了" ComboBox选项"并在"产品搜索" ...的初始显示文本中输入,但是当幻灯片返回时,之前的选择仍保留在ComboBox中,并且初始文本已消失。

重新访问幻灯片时有没有办法重置该框?

我尝试了一种厚颜无耻的解决方法,即在组合框的顶部放置一个简单的文本框,但由于某种原因,它不会以幻灯片模式显示!

还值得注意的是,最终产品列表将包含50多张幻灯片,因此如果有人知道更简单的菜单/搜索功能,我可以接受建议!

1 个答案:

答案 0 :(得分:0)

我不确定您希望组合框何时返回其默认值,但您只需将其添加到您希望更改发生的位置。也许dwirony说过,但你需要参考组合框的索引。

ComboBox1.ListIndex = 0

这会将组合框选择设置为第一个条目或项目。