Information générale
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
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.
how can i supress that prompt or remove the 'review' and/or 'sender'
information ?
i already have
oApp.AutomationSecurity = 3 && msoAutomationSecurityForceDisable
oApp.DisplayAlerts = 1 && no alerts
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
but still get the prompt...
I've also tried 'oPres.endreview' but get an error that i'm not in the
review cycle...
TIA
Nigel
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement