linking dropdown list items to another slide

  • Thread starter Thread starter Bridget
  • Start date Start date
B

Bridget

I am trying to link individual items in a dropdown list that is created in
vba code, so that when you look at the item it will link to a slide in the
presentation.

Any suggestions or techniques?
 
Something along these line maybe?

(obviously your values will not be the same!)

Private Sub ComboBox1_Change()
Select Case Me.ComboBox1.Value
Case Is = "my house"
ActivePresentation.SlideShowWindow.View.GotoSlide 4
Case Is = "his house"
ActivePresentation.SlideShowWindow.View.GotoSlide 5
End Select
End Sub
 
This is my combobox code.

Private Sub ComboBox1_DropButtonClick()

With ActivePresentation.Slides(2).Shapes("ComboBox1").OLEFormat.Object
..AddItem "- Standard Non-Disclosure Agreement for field test candidates"
..AddItem "- Sample Letter of Intent for Data Release for field test
candidates"
..AddItem "- Product specific standard Data Release Agreement"

End With
 
Bridget

Assuming that you used right click > View code to add the code and it is on
a slide object you can use Me.ComboBox1.

You must clear the entries each time or the list will just get longer with
each click

Try this substituting your slide numbers.

Private Sub ComboBox1_Click()
Dim i As Integer
i = Me.ComboBox1.ListIndex
Select Case i
'first item
Case Is = 0
ActivePresentation.SlideShowWindow.View.GotoSlide 3
Case Is = 1
ActivePresentation.SlideShowWindow.View.GotoSlide 4
Case Is = 2
ActivePresentation.SlideShowWindow.View.GotoSlide 5
End Select
End Sub

Private Sub ComboBox1_DropButtonClick()
With Me.ComboBox1
..Clear
..AddItem "- Standard Non-Disclosure Agreement for test candidates"
..AddItem "- Sample Letter of Intent for Data Release for field test
candidates"
..AddItem "- Product specific standard Data Release Agreement"
End With
End Sub
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk
 
Back
Top