How to add Emphasis effect to pictures with VB

[david]

Hi

I want to add some Emphasis effect to the pictures in my PowerPoint presentation. I want to do this by VB code. Can anyone privide some sample code on how to do this? Thanks!

[David M. Marcovitz]

What did you have in mind? The shapes object has some properties that
could be adjusted, but not too many of them work with a picture. You
could easily flash it on and off by setting visible to True and False a
few times (with some delay in between). You could add another shape that
is the same size that could be a box that is bright red. Any of these
what you're looking for?
--David
--
David M. Marcovitz, Ph.D.
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

Post by david
Hi,
I want to add some Emphasis effect to the pictures in my PowerPoint
presentation. I want to do this by VB code. Can anyone privide some
sample code on how to do this? Thanks!

[Kathy J]

One of the VBA gurus will be along eventually, I would guess, but in the
meantime.. Check out this PPT FAQ entry:
Where can I find information about animation in PowerPoint 2002 (XP) and
2003?
http://www.rdpslides.com/pptfaq/FAQ00503.htm
--
Kathryn Jacobs, Microsoft MVP PowerPoint
Get PowerPoint answers at http://www.powerpointanswers.com
Cook anything outdoors with http://www.outdoorcook.com
Get OneNote answers at http://www.onenoteanswers.com

If this helped you, please take the time to rate the value of this post:
http://rate.affero.net/jacobskl/

I believe life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived

Hi,
I have a picture in a slide. And I want to add Emphasis effect to the

picture. For example: spin effect. Can I do this by VB code?

[David M. Marcovitz]

I'm still not sure I'm answering the right question, but you can add an
animation effect with something like

ActivePresentation.SlideShowWindow.View.Slide.Shapes(1) _
.AnimationSettings.EntryEffect = ppEffectBlindsHorizontal

This changes the entrance effect of the first shape on the current slide
to Blinds Horizontal, but it sounds to me like you just want to
emphasize the picture (put a box around or something). Unfortunately,
pictures don't have properties that have any effect like line color.
That's why I thought you might want to add a box that fits around the
picture (a little harder than just changing a simple property of a
picture).

--David
--
David M. Marcovitz, Ph.D.
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

Post by Kathy J
One of the VBA gurus will be along eventually, I would guess, but in
Where can I find information about animation in PowerPoint 2002 (XP)
and 2003?
http://www.rdpslides.com/pptfaq/FAQ00503.htm

[Kathy J]

David M-
The original poster (also David) is (I think) asking about emphasis effects.
In PPT 2002 and 2003 (as you know) a bunch of new effects were added. They
are broken into three categories: entrance, emphasis, and exit effects. OP
David wants to know how to cause the visible picture to have an emphasis
effect (or animation) added to a picture. While not all of the emphasis
animations can be added to a picture, many of them can. These include:
Grow/shrink, Spin, Flash Bulb, Vertical Highlight, Teeter, Blast, and Blink

(Others may work as well, I just know that these work the best.)
--
Kathryn Jacobs, Microsoft MVP PowerPoint
Get PowerPoint answers at http://www.powerpointanswers.com
Cook anything outdoors with http://www.outdoorcook.com
Get OneNote answers at http://www.onenoteanswers.com

If this helped you, please take the time to rate the value of this post:
http://rate.affero.net/jacobskl/

I believe life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived

Post by David M. Marcovitz
I'm still not sure I'm answering the right question, but you can add an
animation effect with something like
ActivePresentation.SlideShowWindow.View.Slide.Shapes(1) _
.AnimationSettings.EntryEffect = ppEffectBlindsHorizontal
This changes the entrance effect of the first shape on the current slide
to Blinds Horizontal, but it sounds to me like you just want to
emphasize the picture (put a box around or something). Unfortunately,
pictures don't have properties that have any effect like line color.
That's why I thought you might want to add a box that fits around the
picture (a little harder than just changing a simple property of a
picture).
--David
--
David M. Marcovitz, Ph.D.
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

Post by Kathy J
One of the VBA gurus will be along eventually, I would guess, but in
Where can I find information about animation in PowerPoint 2002 (XP)
and 2003?
http://www.rdpslides.com/pptfaq/FAQ00503.htm

[David]

Kathy, you are right. I want to add some emphasis effects to the pictures. I can add it manually. But I don't know how to add it with VB code. I checked with the PowerPoint ojbect model, there is EntryEffect function/property for AnimationSettings object. But I can not find EmphasisEffect property for AnimationSettings object. So how can I set the emphasis effect property programmatically? Thanks!

[David M. Marcovitz]

OK. Now that I think I understand your question, I am at home using PowerPoint 98 on a Mac so I can't look for an answer, but it seems that you have already looked where I would have looked. Perhaps one of the real VBA gurus will check in and have an answer for you.
--David

----- David wrote: -----

Kathy, you are right. I want to add some emphasis effects to the pictures. I can add it manually. But I don't know how to add it with VB code. I checked with the PowerPoint ojbect model, there is EntryEffect function/property for AnimationSettings object. But I can not find EmphasisEffect property for AnimationSettings object. So how can I set the emphasis effect property programmatically? Thanks!

[Shyam Pillai]

David,
PowerPoint 2002/2003 introduces new object Timeline. Avoid using the
AnimationSettings object in PwerPoint 2002/2003 since not only is it
limited, you will experience unexpected results if you manipulate them.

Dim oShp As Shape
Dim oEffect As Effect
Set oShp = ActivePresentation.Slides(1).Shapes(1)
Set oEffect =
ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(oShp,
msoAnimEffectGrowShrink)

Regards
Shyam Pillai
http://www.mvps.org/skp

Post by david
Hi,
I want to add some Emphasis effect to the pictures in my PowerPoint
presentation. I want to do this by VB code. Can anyone privide some sample
code on how to do this? Thanks!

[Kathy J]

Shyam,
This is exactly why I try not to get into these kind of questions. I knew
there was a trick to doing the emphasis effects, but can never remember the
right way to do it. I wonder if it would be worth making this little quirk
a more obvious part of the FAQ entry (FAQ00503) - What do you think?
--
Kathryn Jacobs, Microsoft MVP PowerPoint
Get PowerPoint answers at http://www.powerpointanswers.com
Cook anything outdoors with http://www.outdoorcook.com
Get OneNote answers at http://www.onenoteanswers.com

If this helped you, please take the time to rate the value of this post:
http://rate.affero.net/jacobskl/

I believe life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived

Post by Shyam Pillai
David,
PowerPoint 2002/2003 introduces new object Timeline. Avoid using the
AnimationSettings object in PwerPoint 2002/2003 since not only is it
limited, you will experience unexpected results if you manipulate them.
Dim oShp As Shape
Dim oEffect As Effect
Set oShp = ActivePresentation.Slides(1).Shapes(1)
Set oEffect =
ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(oShp,
msoAnimEffectGrowShrink)
Regards
Shyam Pillai
http://www.mvps.org/skp

Post by david
Hi,
I want to add some Emphasis effect to the pictures in my PowerPoint
presentation. I want to do this by VB code. Can anyone privide some sample
code on how to do this? Thanks!

[Shyam Pillai]

The code would apply to any animation you wish to apply under PPT 2002/2003.
The grouping in the UI is logical. Assign the correct enumeration value for
the desired animation effect. AJ will have an article up on Office online
soon and so will I on my site which will deal with Timeline in depth.

Regards
Shyam Pillai

Post by Kathy J
Shyam,
This is exactly why I try not to get into these kind of questions. I knew
there was a trick to doing the emphasis effects, but can never remember the
right way to do it. I wonder if it would be worth making this little quirk
a more obvious part of the FAQ entry (FAQ00503) - What do you think?
--
Kathryn Jacobs, Microsoft MVP PowerPoint
Get PowerPoint answers at http://www.powerpointanswers.com
Cook anything outdoors with http://www.outdoorcook.com
Get OneNote answers at http://www.onenoteanswers.com
http://rate.affero.net/jacobskl/
if we live without making a difference, it makes no difference that we lived

Post by Shyam Pillai
David,
PowerPoint 2002/2003 introduces new object Timeline. Avoid using the
AnimationSettings object in PwerPoint 2002/2003 since not only is it
limited, you will experience unexpected results if you manipulate them.
Dim oShp As Shape
Dim oEffect As Effect
Set oShp = ActivePresentation.Slides(1).Shapes(1)
Set oEffect =
ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(oShp,
msoAnimEffectGrowShrink)
Regards
Shyam Pillai
http://www.mvps.org/skp

Post by david
Hi,
I want to add some Emphasis effect to the pictures in my PowerPoint
presentation. I want to do this by VB code. Can anyone privide some

sample

Post by Shyam Pillai

Post by david
code on how to do this? Thanks!

[Kathy J]

Eagerly awaiting both articles (Yours and AJ's). I understand the process
well enough to do it here, I just don't trust my answers out to others yet
on VBA and the timelines.
--
Kathryn Jacobs, Microsoft MVP PowerPoint
Get PowerPoint answers at http://www.powerpointanswers.com
Cook anything outdoors with http://www.outdoorcook.com
Get OneNote answers at http://www.onenoteanswers.com

If this helped you, please take the time to rate the value of this post:
http://rate.affero.net/jacobskl/

I believe life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived

Post by Shyam Pillai
The code would apply to any animation you wish to apply under PPT 2002/2003.
The grouping in the UI is logical. Assign the correct enumeration value for
the desired animation effect. AJ will have an article up on Office online
soon and so will I on my site which will deal with Timeline in depth.
Regards
Shyam Pillai

Post by Kathy J
Shyam,
This is exactly why I try not to get into these kind of questions. I knew
there was a trick to doing the emphasis effects, but can never remember the
right way to do it. I wonder if it would be worth making this little quirk
a more obvious part of the FAQ entry (FAQ00503) - What do you think?
--
Kathryn Jacobs, Microsoft MVP PowerPoint
Get PowerPoint answers at http://www.powerpointanswers.com
Cook anything outdoors with http://www.outdoorcook.com
Get OneNote answers at http://www.onenoteanswers.com
http://rate.affero.net/jacobskl/
if we live without making a difference, it makes no difference that we lived

Post by Shyam Pillai
David,
PowerPoint 2002/2003 introduces new object Timeline. Avoid using the
AnimationSettings object in PwerPoint 2002/2003 since not only is it
limited, you will experience unexpected results if you manipulate them.
Dim oShp As Shape
Dim oEffect As Effect
Set oShp = ActivePresentation.Slides(1).Shapes(1)
Set oEffect =
ActivePresentation.Slides(1).TimeLine.MainSequence.AddEffect(oShp,
msoAnimEffectGrowShrink)
Regards
Shyam Pillai
http://www.mvps.org/skp

Post by david
Hi,
I want to add some Emphasis effect to the pictures in my PowerPoint
presentation. I want to do this by VB code. Can anyone privide some

sample

Post by Shyam Pillai

Post by david
code on how to do this? Thanks!

[David]

Thank you all for the good inputs. Will the TimeLine code work well for the old versions of PowerPoint (98 etc.) ?

[Steve Rindsberg]

Post by David
Thank you all for the good inputs. Will the TimeLine code work well for the old versions of

PowerPoint (98 etc.) ?

2002, yes. Earlier versions, no.

--
Steve Rindsberg, PPT MVP
PPT FAQ: www.pptfaq.com
PPTools: www.pptools.com