Yes. I guess you want to know how. First, click View - Toolbars and select "Control Toolbox". From this menu, select the combobox icon and draw a combobox. Right click the combobox and select properties. Next to the Name option, give it a name. The following code will be an example of how to setup the combobox with values. To go to VBA, right click the combobox and select View Code.
This'll show how to setup three comboboxes Math, Reading, Writing. You can copy/paste the code and modify it.
Option Explicit
Private Sub Slide1_Activate()
DoDynamicChartSlide
End Sub
Public Sub DoDynamicChartSlide()
SetupCombo SlideShowWindows(1).Presentation.Slides(1).Shapes("Reading").OLEFormat.Object
SetupCombo SlideShowWindows(1).Presentation.Slides(1).Shapes("Writing").OLEFormat.Object
SetupCombo SlideShowWindows(1).Presentation.Slides(1).Shapes("Math").OLEFormat.Object
End Sub
Private Sub SetupCombo(cbo As ComboBox)
If cbo.ListCount = 0 Then
cbo.Clear
Dim idx As Integer
For idx = 1 To 100
cbo.AddItem CStr(idx)
Next
cbo.Text = "50"
End If
End Sub
Private Sub CommandButton1_Click()
DoDynamicChartSlide
End Sub
see Animation Templates
A complete Animated Presentation Template with drop-down menu that allows you to jump to different slides. Be sure to read the 'READ ME' file first before modifying the content.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.