2017-12-15 21 views
0

처음에는 코드가있는 초보자입니다. 여기 몇 시간 만에 YouTube, 포럼, 시행 착오를 거듭해서 자갈을 썼습니다. 실제로 알지 못합니다. 내가하고있는 것! 그러므로 어떤 반응이라도 부드럽게하십시오 !!! (그리고 어리석은 질문을하면 나에게 곰이/설명을 위해).처음 방문 할 때 ComboBox 텍스트 재설정

저는 파워 포인트에서 일하고 있습니다 (제품 지식 작업 원조) ... 홈 슬라이드의 드롭 다운 메뉴를 넣고 목록의 항목을 선택하면 사용자가 특정 슬라이드. 나는 아래 코드를 가지고 그것을 (기적으로) 포착했다.

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 

사용자가 이동하는 각 슬라이드에는 '홈'메뉴 슬라이드로 돌아 오는 하이퍼 링크가 있습니다.

"ComboBox Options"를 선택하고 편집 한 후 "Product search"의 초기 표시 텍스트에 입력했습니다 ...하지만 슬라이드가 반환되면 이전 선택이 ComboBox에 그대로 유지되고 초기 텍스트가 사라집니다.

슬라이드를 다시 방문 할 때 상자를 다시 설정하는 방법이 있습니까?

콤보 상자 위에 간단한 텍스트 상자를 넣는 시도를 해봤지만 어떤 이유로 든 슬라이드 쇼 모드로 표시되지 않습니다!

최종 제품 목록에 50 개 이상의 슬라이드가 포함되므로 주목할만한 가치가 있습니다. 누구나 쉽게 메뉴/검색 기능을 사용할 수 있다면 제안에 대해 공개적으로 알고 있습니다!

+0

'Case'의 각 줄 뒤에'Me.ComboBox1.Value = ""'를 추가 할 수 있습니까? – dwirony

+0

초보자는 코드를 들여 쓰는 법을 잘 알지 못하거나 그렇게하는 데 따른 막대한 이점을 이해하지 못할 수도 있습니다. 필자의 코드 (http://rubberduckvba.com/indentation)를 붙여 넣으십시오. (면책 조항 : 해당 웹 사이트를 소유하고 있습니다.) "들여 쓰기"를 클릭하면 얻을 수있는 내용을 볼 수 있습니다. button =) –

+0

이것은 위대하고 매력처럼 작동합니다! – Leh220

답변

0

콤보 박스를 기본값으로 되돌리려 고 할 때 확실하지 않지만 변경을 수행하려는 위치에 추가해야합니다. 아마도 dwirony가 명시된 곳일 수 있지만 콤보 박스의 색인을 참조해야합니다.

ComboBox1.ListIndex = 0 

이렇게하면 콤보 상자 선택이 첫 번째 항목이나 항목으로 설정됩니다.