How do I modify the following code to always reference ComboBox1 on slide 4 for the Set oShape?
I currently have to click the combobox and then run the macro. However when I send to another user the VBA is not active anymore unless I rerun the macro. I would like it to become static and fixed - "Only refering to Combobox1"
Sub AddItemsToIncidentListBox()
Dim oShape As Shape
Set oShape = ActiveWindow.Selection.ShapeRange(1)
With oShape.OLEFormat.Object
' Add items to the list
.AddItem ("Earthquake")
.AddItem ("Fire")
.AddItem ("Medical")
.AddItem ("Workplace Violence")
.AddItem ("Bomb Scare")
.AddItem ("Traffic Issue")
.AddItem ("Building Incident")
.AddItem ("Campus Incident")
' You could work with other properties of the list or combo box here as well
End With
End Sub
KREEPA