Classe OLEFormat (PowerPoint VBA)

Contient des propriétés et des méthodes qui s’appliquent aux objets OLE.

Set

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

Dim ole as OLEFormat
Set ole = ActiveWindow.RangeFromPoint.OLEFormat

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe OLEFormat : Shape.OLEFormat et ShapeRange.OLEFormat

Activate

Active l’objet spécifié.

ActiveWindow.RangeFromPoint.OLEFormat.Activate

DoVerb

Exige qu’un objet OLE exécute l’un de ses verbes.

Utilisez la propriété ObjectVerbs pour déterminer les verbes disponibles pour un objet OLE.

Syntaxe : expression.DoVerb (Index)

Index: Verbe à exécuter. Si cet argument est omis, le verbe par défaut est exécuté.

With ActivePresentation.Slides(1).Shapes(3)
    If .Type = msoEmbeddedOLEObject Or _
            .Type = msoLinkedOLEObject Then
        .OLEFormat.DoVerb
    End If
End With

FollowColors

Renvoie ou définit la mesure dans laquelle les couleurs de l’objet spécifié respectent le jeu de couleurs de la diapositive. Lecture-écriture.

Valeurs possibles sont ppFollowColorsMixed - Les couleurs du graphique sont un mélange du jeu de couleurs de la diapositive, ppFollowColorsNone - Les couleurs du graphique ne suivent pas les couleurs du jeu de couleurs de la diapositive, ppFollowColorsScheme - Toutes les couleurs du graphique suivent les couleurs du jeu de couleurs de la diapositive, ppFollowColorsTextAndBackground - Seuls le texte et l’arrière-plan suivent le jeu de couleurs de la diapositive.

L’objet spécifié doit être un graphique créé dans Graph ou dans Microsoft Organization Chart. La valeur de la propriété FollowColors peut être l’une de ces constantes PpFollowColors .

ActivePresentation.Slides(1).Shapes(1).OLEFormat.FollowColors = ppFollowColorsMixed

Object

Renvoie l’objet qui représente l’interface de haut niveau de l’objet OLE spécifié. En lecture seule.

Cette propriété vous permet d’accéder aux propriétés et aux méthodes de l’application dans laquelle l’objet OLE a été créé. Utilisez la fonction TypeName pour déterminer le type d’objet renvoyé par cette propriété pour un objet OLE spécifique.

Dim objObject As Object
Set objObject = ActivePresentation.Slides(1).Shapes(1).OLEFormat.Object

ObjectVerbs

Renvoie une collection ObjectVerbs qui contient tous les verbes OLE de l’objet OLE spécifié. En lecture seule.

Dim ovsObjectVerbs As ObjectVerbs
Set ovsObjectVerbs = ActivePresentation.Slides(1).Shapes(1).OLEFormat.ObjectVerbs

Parent

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

ProgID

Renvoie l’identificateur de programmation (ProgID) de l’objet OLE spécifié. En lecture seule.

Dim strProgID As String
strProgID = ActivePresentation.Slides(1).Shapes(1).OLEFormat.ProgID