still no answer re VBA question!!

[Geoff Cox]

Hello,

I am still trying to find out if it is possible to use VBA to remove
the Animation Schemes / Ellipse animation which is applied to the
title text on all slides in a series of presentations?

I had hoped that Shyam might know but he seems to have disappeared!

I have also tried the MS private NG for PowerPoint but they just tell
me that they do not deal with programming queries.

This is the first time I've come up against a brick wall with a NG!

Anyone know where I can look for this info?

Cheers

Geoff

 

[Bill Dilworth]

1. Everyone who answers all the questions in this news group does so on a
volunteer basis. We are very lucky to have some brilliant people like Shyam
who answer, but we need to be very careful not to presume they are required
to do so. They are gifting you their knowledge, not working for you.

2. People tend not to answer a question they are not sure of. If the
answer is 'I do not know' we tend not to answer it. If the answer is 'I'm
not sure what the user is asking', we tend not to answer it. In your case I
was not sure if you wanted to remove the animations applied by the scheme
(see code below) or removing the option from the animation schemes menu (not
possible).

3. So far, in looking over your posts, I have seen responses from at least
a dozen people. Every question and follow-up has been answered, except this
one, which you have posted 3 times. What were you told when you contacted
MS directly?

4. There has already been many free code samples supplied in this NG to
assist you finish the rest of the problem with the 1000 presentations. You
are free to combine the codes. If you need additional assistance, you may
want to look for professional coding freelancers.

Sub Trash()
Dim osld As Slide
Dim x As Integer

On Error Resume Next
For Each osld In ActivePresentation.Slides
osld.SlideShowTransition.EntryEffect = 0
With osld.TimeLine.MainSequence
For x = .Count To 1 Step -1
If .Item(x).EffectType = 86 Or _
.Item(x).EffectType = 92 Then _
.Item(x).Delete
Next x
End With
Next osld
End Sub


Bill Dilworth

 

[Shyam Pillai]

You question has been answered. It's not possible to respond to a question
right away when other matters take priority.

 

[Geoff Cox]

You question has been answered. It's not possible to respond to a question
right away when other matters take priority.

Shyam,

I have only just seen the code which Bill Dilworth has posted. Did I
miss this or some other earlier posting?

Of course I do not expect you or any other person who answers
questions in this group to be under any obligation to help me, I
really am most grateful for the help I get. Without doubt NGs are one
of the best aspects of the Internet.

Sorry if I appearded too insistent!

Cheers

Geoff

 

[Geoff Cox]

1. Everyone who answers all the questions in this news group does so on a
volunteer basis. We are very lucky to have some brilliant people like Shyam
who answer, but we need to be very careful not to presume they are required
to do so. They are gifting you their knowledge, not working for you.

Bill,

Certainly to accept what you say - Shyam and others like him provide
what I and no doubt many others regard as one of the very best
co-operative aspects of the Internet.

2. People tend not to answer a question they are not sure of. If the
answer is 'I do not know' we tend not to answer it. If the answer is 'I'm
not sure what the user is asking', we tend not to answer it. In your case I
was not sure if you wanted to remove the animations applied by the scheme
(see code below) or removing the option from the animation schemes menu (not
possible).

Sorry - that is my mistake then - my interest is in removing the
animations applied by the scheme.

3. So far, in looking over your posts, I have seen responses from at least
a dozen people. Every question and follow-up has been answered, except this
one, which you have posted 3 times. What were you told when you contacted
MS directly?

I had tried asking this question in the private MS PowerPoint NG and
their response was that they do not answer programming questions in
that group.

As far as I know the next step is to pay MS quite large sums of money
to get that kind of help. Have I misssed something?

I will now try the code below! Many thanks.

Cheers

Geoff

 

[Shyam Pillai]

Hi,
Check the original post for the code.

 

[Geoff Cox]

Hi,
Check the original post for the code.

Ah! I see that you gave me

ActivePresentation.Designs(1).SlideMaster.TimeLine.MainSequence(1).Delete

Thanks!

Cheers

Geoff

 

[Geoff Cox]

On Tue, 18 Jul 2006 10:01:24 -0400, "Bill Dilworth"

Bill,

I have tried using your code below but it does not remove the ellipse
animation.

Shyam suggested

ActivePresentation.Designs(1).SlideMaster.TimeLine.MainSequence(1).Delete

this does do what I want.

What does your code aim to do which is different from the above line
and any thoughts as to why it doesn't work for me?

Thanks

Geoff