Macro won't run in powerpointpresentation (2002)

  • Thread starter Thread starter Jakob
  • Start date Start date
J

Jakob

I made a macro in Powerpoint 2002 which has to change the
color of an oval. Then I assigned the macro to an object.
So when I click the object (in the presentation), the
macro should run and change the color af the oval.
When I test the macro in Powerpoint it works, but when I
run the presentation and click on the object which
should 'launch' the macro, it doesn't work.

The Visual Basic code I get if I try to modify the macro
is as follows:

Sub Macro1()
ActiveWindow.Selection.SlideRAnge.Shapes
("Oval 11").Select
With ActiveWindow.Selection.ShapeRange
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = RGB(204, 51 ,0)
.Fill.Transparency = 0#
End With
En Sub

Could anyone please help me out?
I've read something similar in this newsgroup, but I'm not
really in to Visual Basic, so I can't modify it so it
solves my problem too. Maybe anyone could modify the code
I mentioned here so I can copy it and implement it...

In forward thnx,
Jakob
 
Jakob,
Take a look here:
Why doesn't my macro work in slide show mode?
http://www.mvps.org/skp/ppt00027.htm

Regards
Shyam Pillai

http://www.mvps.org/skp


----- Jakob wrote: -----

I made a macro in Powerpoint 2002 which has to change the
color of an oval. Then I assigned the macro to an object.
So when I click the object (in the presentation), the
macro should run and change the color af the oval.
When I test the macro in Powerpoint it works, but when I
run the presentation and click on the object which
should 'launch' the macro, it doesn't work.

The Visual Basic code I get if I try to modify the macro
is as follows:

Sub Macro1()
ActiveWindow.Selection.SlideRAnge.Shapes
("Oval 11").Select
With ActiveWindow.Selection.ShapeRange
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.RGB = RGB(204, 51 ,0)
.Fill.Transparency = 0#
End With
En Sub

Could anyone please help me out?
I've read something similar in this newsgroup, but I'm not
really in to Visual Basic, so I can't modify it so it
solves my problem too. Maybe anyone could modify the code
I mentioned here so I can copy it and implement it...

In forward thnx,
Jakob
 
Back
Top