Populating a ListBox at runtime

Hi All,

I've been using the following code to populate a ListBox. The trouble is it
doesn't populate when double-clicking the PPS file to view the slideshow. I
understand why it's not populating (since it has to be run while the ListBox
is selected in edit mode), just not sure how to make it work at runtime.

Anyone got any pointers on how to fix it?

Many thanks,
Michael


Sub AddItemsToSelectedListBox()

Dim oShape As Shape
Set oShape = ActiveWindow.Selection.ShapeRange(1)

With oShape.OLEFormat.Object
.Clear
.AddItem ("FORMATION 01")
.AddItem ("FORMATION 02")
.AddItem ("FORMATION 03")
.AddItem ("FORMATION 04")
.AddItem ("FORMATION 05")
End With

End Sub

In article , Kimkom wrote:
> Hi All,
>
> I've been using the following code to populate a ListBox. The trouble is it
> doesn't populate when double-clicking the PPS file to view the slideshow. I
> understand why it's not populating (since it has to be run while the ListBox
> is selected in edit mode), just not sure how to make it work at runtime.
>
> Anyone got any pointers on how to fix it?

Never rely on selection more than you have to, other than for your own test use
(as when pre-naming shapes to make something like the following easier):

Use something like this instead:

Set oShape = ActivePresentation.Slides(42).Shapes("Bubba")



>
> Many thanks,
> Michael
>
> Sub AddItemsToSelectedListBox()
>
> Dim oShape As Shape
> Set oShape = ActiveWindow.Selection.ShapeRange(1)
>
> With oShape.OLEFormat.Object
> .Clear
> .AddItem ("FORMATION 01")
> .AddItem ("FORMATION 02")
> .AddItem ("FORMATION 03")
> .AddItem ("FORMATION 04")
> .AddItem ("FORMATION 05")
> End With
>
> End Sub
>

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ: [URL="http://www.pptfaq.com"]www.pptfaq.com[/URL]
PPTools: [URL="http://www.pptools.com"]www.pptools.com[/URL]
================================================