Classe Presentation (PowerPoint VBA)

La classe Presentation représente une présentation Microsoft PowerPoint.

Les procédures principales de la classe Presentation sont Close et Presentations.Add

Set

Pour utiliser une variable de classe Presentation, elle doit d'abord être instanciée, par exemple

Dim prs as Presentation
Set prs = ActivePresentation

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Presentation : Application.ActivePresentation, DocumentWindow.Presentation, Presentations.Item, Presentations.Add, Presentations.Open, Presentations.Open2007, ProtectedViewWindow.Presentation, ProtectedViewWindow.Edit, SlideShowWindow.Presentation et Application.Presentations

Thèmes

Certaines procédures de cette classe ont été regroupées en thèmes et sont décrites sur des pages thématiques séparées

Add with its procedures AddTitleMaster, AddToFavorites et Presentations.Add
Format with its procedures ApplyTheme, ColorSchemes, EnvelopeVisible, ExtraColors, Fonts, LayoutDirection, RemoveDocumentInformation et RemovePersonalInformation
Save with its procedures AutoSaveOn, CanCheckIn, CheckIn, CheckInWithVersion, Save, SaveAs, SaveCopyAs, SaveCopyAs2 et Saved
Data with its procedures ChartDataPointTrack et CustomerData
Create with its procedures CreateVideo et CreateVideoStatus
Display/Show with its procedures DisplayComments, SlideShowSettings et SlideShowWindow
Import/Export with its procedures Export, ExportAsFixedFormat et ExportAsFixedFormat2
Name with its procedures FullName, Name et TemplateName
Password/Protect with its procedures Password, PasswordEncryptionAlgorithm, PasswordEncryptionFileProperties, PasswordEncryptionKeyLength, PasswordEncryptionProvider, SetPasswordEncryptionOptions et WritePassword
Print with its procedures PrintOptions et PrintOut
Open with its procedures Presentations.CanCheckOut, Presentations.CheckOut, Presentations.Open et Presentations.Open2007

Méthodes

Les méthodes principales de la classe Presentation sont

Close - Ferme la présentation spécifiée.

ActivePresentation.Close

Autre Méthodes

ApplyTemplate2 - Applique un modèle de conception et une variante de thème à la présentation.

Dim strFileName As String: strFileName = 
Dim strVariantGUID As String: strVariantGUID = 
ActivePresentation.ApplyTemplate2 FileName:=strFileName, VariantGUID:=strVariantGUID

FollowHyperlink - Affiche un document en mémoire cache s’il a déjà été téléchargé. Dans le cas contraire, cette méthode traduit le lien hypertexte, télécharge le document cible et l’affiche dans l’application appropriée.

Dim strAddress As String: strAddress = 
ActivePresentation.FollowHyperlink Address:=strAddress

MergeWithBaseline - Fusionne une présentation dans une autre présentation.

Dim strwithPresentation As String: strwithPresentation = 
Dim strbaselinePresentation As String: strbaselinePresentation = 
ActivePresentation.MergeWithBaseline withPresentation:=strwithPresentation, baselinePresentation:=strbaselinePresentation

PublishSlides - Crée une présentation Web (format HTML) contenant des diapositives d’une présentation active. Vous pouvez afficher la présentation publiée dans un navigateur Web.

Dim strSlideLibraryUrl As String: strSlideLibraryUrl = 
ActivePresentation.PublishSlides SlideLibraryUrl:=strSlideLibraryUrl

SendFaxOverInternet - Envoie une présentation sous forme de télécopie aux destinataires spécifiés.

ActivePresentation.SendFaxOverInternet

Propriétés

Broadcast Renvoie l’objet de diffusion de l’objet Presentation actif. En lecture seule.

Dim brdBroadcast As Broadcast
Set brdBroadcast = ActivePresentation.Broadcast

BuiltInDocumentProperties Cette propriété renvoie une collection DocumentProperties qui représente toutes les propriétés de document prédéfinies de la présentation spécifiée. En lecture seule.

Dim dpsBuiltInDocumentProperties As DocumentProperties
dpsBuiltInDocumentProperties = ActivePresentation.BuiltInDocumentProperties

Coauthoring Renvoie un objet Coauthoring de l’objet Presentation actif. En lecture seule.

Dim cthCoauthoring As Coauthoring
Set cthCoauthoring = ActivePresentation.Coauthoring

CommandBars Renvoie une collection CommandBars qui représente la fusion des ensembles de barres de commandes de l’application conteneur hôte et de Microsoft PowerPoint. Cette propriété ne renvoie un objet valide que si le conteneur est un serveur DocObject, comme le Classeur Microsoft, et si PowerPoint joue le rôle de serveur OLE. En lecture seule.

Dim cbsCommandBars As Office.CommandBars
Set cbsCommandBars = ActivePresentation.CommandBars

Container Renvoie l’objet qui contient la présentation incorporée spécifiée. En lecture seule.

Dim objContainer As Object
Set objContainer = ActivePresentation.Container

ContentTypeProperties Renvoie la collection MetaProperties Microsoft Office qui décrit les métadonnées stockées dans le classeur. En lecture seule.

Dim mpsContentTypeProperties As Office.MetaProperties
Set mpsContentTypeProperties = ActivePresentation.ContentTypeProperties

CustomDocumentProperties Cette propriété renvoie une collection DocumentProperties qui représente toutes les propriétés de document personnalisées de la présentation spécifiée. En lecture seule.

Dim dpsCustomDocumentProperties As DocumentProperties
dpsCustomDocumentProperties = ActivePresentation.CustomDocumentProperties

CustomXMLParts Renvoie un objet CustomXMLParts qui représente la collection de parties XML personnalisées associées à l’objet Presentation spécifié. En lecture seule.

Dim cxmsCustomXMLParts As Office.CustomXMLParts
Set cxmsCustomXMLParts = ActivePresentation.CustomXMLParts

DefaultLanguageID Renvoie ou définit la langue par défaut d’une présentation. Lecture-écriture.

ActivePresentation.DefaultLanguageID = msoLanguageIDMixed

DefaultShape Renvoie un objet Shape qui représente la forme par défaut de la présentation. En lecture seule.

Dim shpDefaultShape As Shape
Set shpDefaultShape = ActivePresentation.DefaultShape

Designs Renvoie un objet designs qui représente une collection de conceptions.

Dim dsgsDesigns As Designs
Set dsgsDesigns = ActivePresentation.Designs

DocumentInspectors Renvoie la collection DocumentInspectors de Microsoft Office. En lecture seule.

Dim disDocumentInspectors As Office.DocumentInspectors
Set disDocumentInspectors = ActivePresentation.DocumentInspectors

DocumentLibraryVersions Renvoie une collection DocumentLibraryVersions qui représente la collection des versions d’une présentation partagée dont l’option de contrôle de version est activée et qui est stockée dans une bibliothèque de documents sur un serveur.

Dim dlvsDocumentLibraryVersions As Office.DocumentLibraryVersions
Set dlvsDocumentLibraryVersions = ActivePresentation.DocumentLibraryVersions

EncryptionProvider Renvoie une valeur de type String qui spécifie le nom du fournisseur de chiffrement de l’algorithme utilisé par PowerPoint lors du chiffrement des documents. Lecture-écriture.

ActivePresentation.EncryptionProvider =

FarEastLineBreakLanguage Renvoie ou définit la langue permettant de déterminer le niveau de saut de ligne utilisé lorsque l’option de commande des sauts de ligne est activée. Lecture-écriture.

ActivePresentation.FarEastLineBreakLanguage = MsoFarEastLineBreakLanguageJapanese

FarEastLineBreakLevel Renvoie ou définit le saut de ligne en fonction du niveau des caractères asiatiques. Lecture-écriture.

ActivePresentation.FarEastLineBreakLevel = ppFarEastLineBreakLevelCustom

Final Détermine si la présentation est marquée comme finale (lecture seule). Lecture-écriture.

ActivePresentation.Final = True

GridDistance Définit ou renvoie une valeur de type Single représentant la distance entre les lignes du quadrillage. Lecture-écriture.

ActivePresentation.GridDistance = 18

Guides Renvoie la collection repères associée à une mise en page personnalisée. En lecture seule.

Dim gdsGuides As Guides
Set gdsGuides = ActivePresentation.Guides

HandoutMaster Renvoie un objet Master qui représente le masque du document. En lecture seule.

Dim mstHandoutMaster As Master
Set mstHandoutMaster = ActivePresentation.HandoutMaster

HasHandoutMaster Indique si la présentation comporte un média qui réside sur un masque de document. Lecture seule

Dim booHasHandoutMaster As Boolean
booHasHandoutMaster = ActivePresentation.HasHandoutMaster

HasNotesMaster Indique si la présentation comporte un média qui réside sur un masque de pages de commentaires. En lecture seule.

Dim booHasNotesMaster As Boolean
booHasNotesMaster = ActivePresentation.HasNotesMaster

HasTitleMaster MsoTrue si la présentation spécifiée possède un masque de titre. En lecture seule.

Dim mtsHasTitleMaster As Office.MsoTriState
mtsHasTitleMaster = ActivePresentation.HasTitleMaster

HasVBProject Renvoie une valeur indiquant si la présentation active contient un projet Microsoft Visual Basic pour Applications (VBA). En lecture seule.

Dim booHasVBProject As Boolean
booHasVBProject = ActivePresentation.HasVBProject

InMergeMode Indique si la fenêtre de document est en mode de fusion. Lecture seule

Dim booInMergeMode As Boolean
booInMergeMode = ActivePresentation.InMergeMode

NoLineBreakAfter Renvoie ou définit les caractères qui ne peuvent pas être placés à la fin d’une ligne. Lecture-écriture.

ActivePresentation.NoLineBreakAfter =

NoLineBreakBefore Renvoie ou définit les caractères qui ne peuvent pas être placés au début d’une ligne. Lecture-écriture.

ActivePresentation.NoLineBreakBefore =

NotesMaster Renvoie un objet Master qui représente le masque des commentaires. En lecture seule.

Dim mstNotesMaster As Master
Set mstNotesMaster = ActivePresentation.NotesMaster

PageSetup Renvoie un objet PageSetup dont les propriétés contrôlent les attributs de mise en place des diapositives de la présentation spécifiée. En lecture seule.

Dim pspPageSetup As PageSetup
Set pspPageSetup = ActivePresentation.PageSetup

Parent Renvoie l’objet parent de l’objet spécifié.

Dim objParent As Object
Set objParent = ActivePresentation.Parent

Path Renvoie une valeur de type String qui représente le chemin d’accès à l’objet Presentation spécifié. En lecture seule.

Dim strPath As String
strPath = ActivePresentation.Path

Permission expression.expression. Permission.

Dim prmPermission As Office.Permission
Set prmPermission = ActivePresentation.Permission

ReadOnly Renvoie une valeur indiquant si la présentation spécifiée est en lecture seule. En lecture seule.

Dim mtsReadOnly As Office.MsoTriState
mtsReadOnly = ActivePresentation.ReadOnly

ReadOnlyRecommended True   Si la présentation a été enregistrée en lecture seule recommandée. Type de données Boolean en lecture seule.

Dim booReadOnlyRecommended As Boolean
booReadOnlyRecommended = ActivePresentation.ReadOnlyRecommended

Research Renvoie un objet Research qui fournit l’accès à la fonctionnalité de service de recherche de Microsoft PowerPoint. En lecture seule.

Dim rsrResearch As Research
Set rsrResearch = ActivePresentation.Research

SectionProperties Cette propriété renvoie un objet SectionProperties. En lecture seule.

Dim spsSectionProperties As SectionProperties
Set spsSectionProperties = ActivePresentation.SectionProperties

SensitivityLabel

Dim islSensitivityLabel As Office.ISensitivityLabel
islSensitivityLabel = ActivePresentation.SensitivityLabel

ServerPolicy Renvoie un objet Microsoft Office ServerPolicy . En lecture seule.

Dim spyServerPolicy As Office.ServerPolicy
Set spyServerPolicy = ActivePresentation.ServerPolicy

SharedWorkspace Cet objet ou membre n'est plus autorisé, mais il reste dans le modèle objet pour des raisons de compatibilité descendante. Vous ne devez pas l'utiliser dans les nouvelles applications.

Dim sweSharedWorkspace As Office.SharedWorkspace
Set sweSharedWorkspace = ActivePresentation.SharedWorkspace

Signatures Renvoie un objet SignatureSet qui représente une collection de signatures numériques. En lecture seule.

Dim sstSignatures As Office.SignatureSet
Set sstSignatures = ActivePresentation.Signatures

SlideMaster Renvoie un objet Master qui représente le masque des diapositives.

Dim mstSlideMaster As Master
Set mstSlideMaster = ActivePresentation.SlideMaster

Slides Renvoie une collection Slides qui représente toutes les diapositives de la présentation spécifiée. En lecture seule.

Dim sldsSlides As Slides
Set sldsSlides = ActivePresentation.Slides

SnapToGrid Déterminer s’il faut aligner les formes sur le quadrillage dans la présentation spécifiée. Lecture-écriture.

ActivePresentation.SnapToGrid = msoTrue

Sync Cet objet ou membre n'est plus autorisé, mais il reste dans le modèle objet pour des raisons de compatibilité descendante. Vous ne devez pas l'utiliser dans les nouvelles applications.

Dim synSync As Office.Sync
Set synSync = ActivePresentation.Sync

Tags Renvoie un objet Tags qui représente les balises de l’objet spécifié. En lecture seule.

Dim tgsTags As Tags
Set tgsTags = ActivePresentation.Tags

TitleMaster Renvoie un objet Master qui représente le masque de titre de la présentation spécifiée.

Dim mstTitleMaster As Master
Set mstTitleMaster = ActivePresentation.TitleMaster

VBASigned Détermine si le projet Visual Basic pour Applications du document spécifié a été signé numériquement. En lecture seule.

Dim mtsVBASigned As Office.MsoTriState
mtsVBASigned = ActivePresentation.VBASigned

VBProject Renvoie un objet VBProject représentant le projet Visual Basic individuel relatif à la présentation. En lecture seule.

Dim vbpVBProject As VBIDE.VBProject
Set vbpVBProject = ActivePresentation.VBProject

Windows Renvoie une collection DocumentWindows qui représente toutes les fenêtres de document associées à la présentation spécifiée. En lecture seule.

Dim dwsWindows As DocumentWindows
Set dwsWindows = ActivePresentation.Windows

WorkIdentity

ActivePresentation.WorkIdentity =

Presentations.Count Renvoie le nombre d'objets de la collection spécifiée. En lecture seule.

Dim lngCount As Long
lngCount = Presentations.Count

Presentations.Parent Renvoie l’objet parent de l’objet spécifié.

Dim objParent As Object
Set objParent = Presentations.Parent