Hi
How can I initialize a combobox so it contains information in Powerpoint when I start the presentation?
As for now I must manuallu run Private Sub Slide1_Load(). Then start the presentation. Now the combobox is loaded.
I know that I must use --> Initialize() , but how?
_______________________
--------------------------------------------------------------------------------
Private Sub Slide1_Load()
ComboBox1.Clear
ComboBox1.AddItem "Choose a page" 'ListIndex = 0
ComboBox1.AddItem "Apple" 'ListIndex = 1
ComboBox1.AddItem "Microsoft" 'ListIndex = 2
ComboBox1.AddItem "IBM" 'ListIndex = 3
ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Click()
Dim IE As InternetExplorer
Set IE = New InternetExplorer
Select Case ComboBox1.ListIndex
Case 0
Case 1 'Apple
IE.Visible = True
IE.Navigate ("
Case 2 'M$
IE.Visible = True
IE.Navigate ("
Case 3 'IBM
IE.Visible = True
IE.Navigate ("
End Select
ComboBox1.ListIndex = 0
End Sub
--------------------------------------------------------------------------------
How can I initialize a combobox so it contains information in Powerpoint when I start the presentation?
As for now I must manuallu run Private Sub Slide1_Load(). Then start the presentation. Now the combobox is loaded.
I know that I must use --> Initialize() , but how?
_______________________
--------------------------------------------------------------------------------
Private Sub Slide1_Load()
ComboBox1.Clear
ComboBox1.AddItem "Choose a page" 'ListIndex = 0
ComboBox1.AddItem "Apple" 'ListIndex = 1
ComboBox1.AddItem "Microsoft" 'ListIndex = 2
ComboBox1.AddItem "IBM" 'ListIndex = 3
ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Click()
Dim IE As InternetExplorer
Set IE = New InternetExplorer
Select Case ComboBox1.ListIndex
Case 0
Case 1 'Apple
IE.Visible = True
IE.Navigate ("
Case 2 'M$
IE.Visible = True
IE.Navigate ("
Case 3 'IBM
IE.Visible = True
IE.Navigate ("
End Select
ComboBox1.ListIndex = 0
End Sub
--------------------------------------------------------------------------------