Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

vba make shape visible

435 views
Skip to first unread message

MoWoL

unread,
Dec 6, 2007, 12:01:00 PM12/6/07
to
I have been searching the posts, and have been unable to find the answer I'm
looking for. I have a presentation used as practice or test. I was able to
find code on randomizing my slides so it is different each time the user goes
through it. If they get the answer correct, the slide no longer comes up, if
it's wrong it stays in the random picking order so it will come up again
until they get it right. I couldn't be happier with the code I've found here
in helping me do this. One last thing I want to add... I have a text box that
says "previously missed". In code I have named this box "missed". In the
initializing frame, I loop through all slides and make this text box not
visible. The problem I'm having is making it visible for the next time it
comes up if they hit a wrong answer. I've tried using the on trigger event,
and that worked until putting in the code that randomized the slides. I'm
sure its all in the language, but I'm stuck. Any help would be appreciated.
Thanks.

Austin Myers

unread,
Dec 6, 2007, 12:59:12 PM12/6/07
to
Post some of the code so we can see what you are trying to do. Makes it
much easier. ;-)

Austin Myers
MS PowerPoint MVP Team

Provider of PFCPro, PFCMedia and PFCExpress
www.playsforcertain.com


"MoWoL" <Mo...@discussions.microsoft.com> wrote in message
news:899FFC6F-DCBB-4376...@microsoft.com...

David M. Marcovitz

unread,
Dec 6, 2007, 1:00:52 PM12/6/07
to
Once a shape is made invisible with code, animation won't help you; you
need to use code to make it visible again. Fortunately, the code for
making something visible is very easy as long as you can identify the
shape. In fact, it is the same as making it invisible, except you change
False to True. The details depend on how you are accessing the shape you
want to make visible. Here are a few examples:

oShp.Visible = True
makes the shape held in the variable oShp become visible.

ActivePresentation.SlideShowWindow.View.Slide.Shapes(3).Visible = True
makes the third shape on the current slide visible

ActivePresentation.Slides(4).Shapes(5).Visible = True
makes the 5th shape on the 4th slide visible

ActivePresentation.Slides(2).Shapes("missed").Visible = True
makes the shape named (with VBA code) "missed" on the second slide
visible.

There are many more variations, depending on exactly how you are able to
identify which shape it is that you want.

--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

=?Utf-8?B?TW9Xb0w=?= <Mo...@discussions.microsoft.com> wrote in
news:899FFC6F-DCBB-4376...@microsoft.com:

MoWoL

unread,
Dec 6, 2007, 1:22:02 PM12/6/07
to
Thanks for the quick response guys, the following was exactly what I was
looking for:
ActivePresentation.SlideShowWindow.View.Slide.Shapes("Missed").Visible = True

When the user hits an incorrect answer, it fires the WrongAnswer() code that
first makes missed visible, then goes to the slide that tells them they
missed it. Most of my code I have adapted from David's site and postings.
I am now playing with keeping score, but for now this has helped
tremendously! Thanks again!

David M. Marcovitz

unread,
Dec 6, 2007, 1:46:26 PM12/6/07
to
Glad I could help.
--David

--
David M. Marcovitz
Microsoft PowerPoint MVP
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.PowerfulPowerPoint.com/

=?Utf-8?B?TW9Xb0w=?= <Mo...@discussions.microsoft.com> wrote in
news:A7804CE8-5ACE-40C3...@microsoft.com:

Larry Humphries

unread,
Aug 19, 2010, 8:32:19 PM8/19/10
to
I used to use this trick all the time in ppt 2007. I would create an action setting on a word on the slide that would call a macro when the mouse hovered over a word. I would set the visibility to a particular shape to visible and others not, i.e.,

act.Shapes("CandlingSurfaces").Visible = False
act.Shapes("Holdup").Visible = True

This created an interactive presentation. However, this does not work in 2007. Only the shape that initially shows on the slide can be made visible or not visible. All other objects remain not visible unless I leave slideshow mode. Did something change?

> On Thursday, December 06, 2007 12:01 PM MoWo wrote:

> I have been searching the posts, and have been unable to find the answer I'm
> looking for. I have a presentation used as practice or test. I was able to
> find code on randomizing my slides so it is different each time the user goes
> through it. If they get the answer correct, the slide no longer comes up, if
> it's wrong it stays in the random picking order so it will come up again
> until they get it right. I couldn't be happier with the code I've found here
> in helping me do this. One last thing I want to add... I have a text box that
> says "previously missed". In code I have named this box "missed". In the
> initializing frame, I loop through all slides and make this text box not
> visible. The problem I'm having is making it visible for the next time it
> comes up if they hit a wrong answer. I've tried using the on trigger event,
> and that worked until putting in the code that randomized the slides. I'm
> sure its all in the language, but I'm stuck. Any help would be appreciated.
> Thanks.


>> On Thursday, December 06, 2007 12:59 PM Austin Myers wrote:

>> Post some of the code so we can see what you are trying to do. Makes it
>> much easier. ;-)
>>
>>
>>
>> Austin Myers
>> MS PowerPoint MVP Team
>>
>> Provider of PFCPro, PFCMedia and PFCExpress
>> www.playsforcertain.com


>>>> On Thursday, December 06, 2007 1:22 PM MoWo wrote:

>>>> Thanks for the quick response guys, the following was exactly what I was
>>>> looking for:
>>>> ActivePresentation.SlideShowWindow.View.Slide.Shapes("Missed").Visible = True
>>>>
>>>> When the user hits an incorrect answer, it fires the WrongAnswer() code that
>>>> first makes missed visible, then goes to the slide that tells them they
>>>> missed it. Most of my code I have adapted from David's site and postings.
>>>> I am now playing with keeping score, but for now this has helped
>>>> tremendously! Thanks again!
>>>>
>>>> "David M. Marcovitz" wrote:


>>>>> On Thursday, December 06, 2007 1:46 PM David M. Marcovitz wrote:

>>>>> Glad I could help.
>>>>> --David
>>>>>
>>>>> --
>>>>> David M. Marcovitz
>>>>> Microsoft PowerPoint MVP
>>>>> Director of Graduate Programs in Educational Technology
>>>>> Loyola College in Maryland
>>>>> Author of _Powerful PowerPoint for Educators_
>>>>> http://www.PowerfulPowerPoint.com/
>>>>>
>>>>> =?Utf-8?B?TW9Xb0w=?= <Mo...@discussions.microsoft.com> wrote in
>>>>> news:A7804CE8-5ACE-40C3...@microsoft.com:


>>>>> Submitted via EggHeadCafe - Software Developer Portal of Choice
>>>>> Simple .NET HEX PixelColor Utility
>>>>> http://www.eggheadcafe.com/tutorials/aspnet/5617a491-963d-4510-b8f1-1863ddf52bc1/simple-net-hex-pixelcolor-utility.aspx

0 new messages