Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Powerpoint
Message
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Titre:
Powerpoint
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP1
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
00998337
Message ID:
00998337
Vues:
50
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
Fil
Voir

Click here to load this message in the networking platform