saveas

[Nigel Gomm]

i have powerpoint under automation and when i "saveas" (or savecopyas ) some
presentations i get a prompt...

"if you are planning on sending this presentation back to the original
author, you may want your changes marked as revisions......."

that i can't supress.

i'm guessing that at some point these presentations have been "sent" for
review.

i already have

oApp.AutomationSecurity = 3 && msoAutomationSecurityForceDisable
oApp.DisplayAlerts = 1 && no alerts


how can i supress that prompt or remove the 'review' and/or 'sender'
information ?


TIA

Nigel

 

[Steve Rindsberg]

i have powerpoint under automation and when i "saveas" (or savecopyas ) some
presentations i get a prompt...

"if you are planning on sending this presentation back to the original
author, you may want your changes marked as revisions......."

that i can't supress.

i'm guessing that at some point these presentations have been "sent" for
review.

i already have

oApp.AutomationSecurity = 3 && msoAutomationSecurityForceDisable
oApp.DisplayAlerts = 1 && no alerts

Have you tried

Presentation.EndReview

I'm not sure it'll work, but it's worth a try.

 

[Nigel Gomm]

yes, but i got an error about not being in a 'review cycle'

n

 

[Steve Rindsberg]

yes, but i got an error about not being in a 'review cycle'

Erghh. On the same presentation that asks you whether you ... ah. Wait.
End Review is probably only an option given to the user who created the
presentation for review in the first place.

Hm. SaveAs and use ppSaveAsPresForReview as the file type parameter (22)?

That only if the version is 2002/2003 or greater; It wouldn't be supported in
earlier versions.

And perhaps then only if the presentation IS under review. I forget the name
of the object, but if you iterate through the shapes on the slide master,
you'll find a hidden OLE object if the presentation's under review.

 

[Nigel Gomm]

i tried

For Each sh In oPres.SlideMaster.shapes
If sh.Type = 7 And sh.Name = "Base" Then
sh.Delete
Endif
Next sh

based on some code i found elsewhere... but that didn't work.... nor did
saving as ppSaveAsPresForReview

n

 

[Nigel Gomm]

i also just tried
opres.customdocumentproperties["_adhocreviewcycleid"].value = 0
but to no avail either

what's the syntax for removing a customdocumentproperty ?

n

 

[Nigel Gomm]

deleted all customdocumentproperties but still get that damn prompt

i also just tried
opres.customdocumentproperties["_adhocreviewcycleid"].value = 0
but to no avail either

what's the syntax for removing a customdocumentproperty ?

n

Erghh. On the same presentation that asks you whether you ... ah. Wait.
End Review is probably only an option given to the user who created the
presentation for review in the first place.

Hm. SaveAs and use ppSaveAsPresForReview as the file type parameter
(22)?

That only if the version is 2002/2003 or greater; It wouldn't be
supported in
earlier versions.

And perhaps then only if the presentation IS under review. I forget the
name
of the object, but if you iterate through the shapes on the slide master,
you'll find a hidden OLE object if the presentation's under review.


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

 

[Steve Rindsberg]

i tried

For Each sh In oPres.SlideMaster.shapes
If sh.Type = 7 And sh.Name = "Base" Then
sh.Delete
Endif
Next sh

based on some code i found elsewhere... but that didn't work.... nor did
saving as ppSaveAsPresForReview

Yep, that's the incantation I was thinking of. I probably wrote the snippet,
now you mention it. Small world, eh?

I've found out since that it's possible to have multiple shapes like that on
one master, some obviously with other names. You might want to try

For X = oPres.SlideMaster.Shapes.Count to 1 step -1
if sh.Type = 7 then
if not sh.Visible then
sh.delete
end if
End If
End If

 

[Steve Rindsberg]

i also just tried
opres.customdocumentproperties["_adhocreviewcycleid"].value = 0
but to no avail either

what's the syntax for removing a customdocumentproperty ?

oPres.CustomDocumentProperties("PropertyName").Delete




n

Erghh. On the same presentation that asks you whether you ... ah. Wait.
End Review is probably only an option given to the user who created the
presentation for review in the first place.

Hm. SaveAs and use ppSaveAsPresForReview as the file type parameter (22)?

That only if the version is 2002/2003 or greater; It wouldn't be
supported in
earlier versions.

And perhaps then only if the presentation IS under review. I forget the
name
of the object, but if you iterate through the shapes on the slide master,
you'll find a hidden OLE object if the presentation's under review.


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

 

[Nigel Gomm]

still no

i have (this is VFP in case you were wondering)......

If oPres.customdocumentproperties.Count > 0
If !Isnull(oPres.customdocumentproperties["_adhocreviewcycleid"])
oPres.customdocumentproperties["_adhocreviewcycleid"].Delete
Endif
If !Isnull(oPres.customdocumentproperties["_authoremail"])
oPres.customdocumentproperties["_authoremail"].Delete
Endif
If !Isnull(oPres.customdocumentproperties["_AuthorEmailDisplayName"])
oPres.customdocumentproperties["_AuthorEmailDisplayName"].Delete
Endif
If !Isnull(oPres.customdocumentproperties["_ReviewingToolsShownOnce"])
oPres.customdocumentproperties["_ReviewingToolsShownOnce"].Delete
Endif
For i = oPres.SlideMaster.shapes.Count To 1 Step -1
sh = oPres.SlideMaster.shapes.item(i)
If sh.Type = 7
If sh.Visible = 0 && msoTriState.msoFalse
sh.Delete
Endif
Endif
Next
Endif


and yes, i checked back and that snippet came from
http://www.rdpslides.com/pptfaq/FAQ00062.htm so.... thank you for that too.

n

 

[Steve Rindsberg]

I'm about out of ideas, Nigel. Suggestion: post this on
microsoft.public.powerpoint

There are a couple of very good folks there who don't seem to watch this group
as closely.

I'll be interested to know what they have to say too. I'll follow it over
there as well.

 

[Nigel Gomm]

done

and thanks again for all your help

n