Code: Select all
Slide1.ComboBox1.AddItem ("To Do")
Slide1.ComboBox1.AddItem ("In Progress")
Slide1.ComboBox1.AddItem ("Done")
Thanks,
Code: Select all
Slide1.ComboBox1.AddItem ("To Do")
Slide1.ComboBox1.AddItem ("In Progress")
Slide1.ComboBox1.AddItem ("Done")
Code: Select all
Dim i As Long
For i = 1 To 10
With Slide1.Shapes("ComboBox" & i).OLEFormat.Object
.AddItem "To Do"
.AddItem "In Progress"
.AddItem "Done"
End With
Next i
Code: Select all
Sub M_snb()
Slide1.combobox1.List=split("To do|In Progress|Done","|")
for j=2 to 10
Slide1.oleobjects("combobox" & j).list=slide1.combobox1.list
next
End Sub[\code]