Clase OLEFormat (PowerPoint VBA)

Contiene propiedades y métodos que se pueden aplicar a objetos OLE.

Set

Para usar una variable de clase OLEFormat, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase OLEFormat : Shape.OLEFormat y ShapeRange.OLEFormat

Activate

Activa el objeto especificado.

ActiveWindow.RangeFromPoint.OLEFormat.Activate

DoVerb

Solicita que un objeto OLE ejecute uno de sus verbos.

Utilice la propiedad ObjectVerbs para determinar los verbos disponibles para un objeto OLE.

Sintaxis : expression.DoVerb (Index)

Index: Verbo que se ejecutará. Si se omite este argumento, se ejecutará el verbo predeterminado.

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

FollowColors

Devuelve o establece la medida en que los colores del objeto especificado siguen la combinación de colores de la diapositiva. Lectura y escritura.

Valores posibles son ppFollowColorsMixed - Los colores del gráfico siguen un formato mixto de la combinación de colores de la diapositiva, ppFollowColorsNone - Los colores del gráfico no siguen la combinación de colores de la diapositiva, ppFollowColorsScheme - Todos los colores del gráfico siguen la combinación de colores de la diapositiva, ppFollowColorsTextAndBackground - Sólo el texto y el fondo siguen la combinación de colores de la diapositiva.

El objeto especificado debe ser un gráfico creado en Microsoft Organization Chart o en Graph. El valor de la propiedad FollowColors puede ser una de estas constantes PpFollowColors .

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

Object

Devuelve el objeto que representa la interfaz de nivel superior del objeto OLE especificado. Solo lectura.

Esta propiedad permite tener acceso a las propiedades y los métodos de la aplicación en la que se creó el objeto OLE. Utilice la función TypeName para determinar el tipo de objeto que esta propiedad devuelve para un objeto OLE específico.

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

ObjectVerbs

Devuelve una colección ObjectVerbs que contiene todos los verbos OLE del objeto OLE especificado. Solo lectura.

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

Parent

Devuelve el objeto primario del objeto especificado.

ProgID

Devuelve el identificador de programación (ProgID) del objeto OLE especificado. Solo lectura.

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