Steve, your example makes sense to me, I just don't know how to implement that.
I've created my ListBox and populated it as such:
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
Can somebody please tell me how to go about changing an image depending on
which item is selected in the list? I'm guessing I need a 'Private Sub
ListBox1_change' handler?
Thanks,
Michael
"kimkom" wrote:
> Thank you Steve, that makes sense.
>
> Michael
>
> "Steve Rindsberg" wrote:
>
> > In article <55CD7CAC-600C-4653-A5B6-(E-Mail Removed)>, Kimkom wrote:
> > > Hi all,
> > >
> > > I am looking for a neat solution to change an image while in a PPS show.
> > >
> > > For instance, if I have 5 different images and each of them display
> > > depending on which option box (or maybe an item in dropdown list) is checked
> > > how do I go about it?
> >
> > In the option box's change event, include code to make the appropriate image
> > visible (and the others invisible).
> >
> > Something like:
> >
> > With ActivePresentation.Slides(x) ' where x is the slide index
> > ' assumes you've already named each of the pictures:
> > .Shapes("Picture1").Visible = True
> > .Shapes("Picture2").Visible = True
> > .Shapes("Picture3").Visible = True
> > ' etc
> > End With
> >
> >
> >
> > -----------------------------------------
> > Steve Rindsberg, PPT MVP
> > PPT FAQ: www.pptfaq.com
> > PPTools: www.pptools.com
> > ================================================
> >
> >
> >