Classe OLEFormat (PowerPoint VBA)

Contém propriedades e métodos que se aplicam a objetos OLE.

Set

Para usar uma variável de classe OLEFormat, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo OLEFormat: Shape.OLEFormat e ShapeRange.OLEFormat

Activate

Ativa o objeto especificado.

ActiveWindow.RangeFromPoint.OLEFormat.Activate

DoVerb

Solicita a um objeto OLE para que execute um de seus verbos.

Use a Propriedade ObjectVerbs para determinar os verbos disponíveis para um objeto OLE.

Sintaxe : expression.DoVerb (Index)

Index: O verbo a ser executado. Se esse argumento for omitido, é executado o verbo padrão.

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

FollowColors

Retorna ou define a extensão até onde as cores no objeto especificado seguirão o esquema de cores do slide. Leitura/gravação.

Os valores possíveis são ppFollowColorsMixed - As cores de gráfico seguem um formato misto no esquema de cores do slide, ppFollowColorsNone - As cores do gráfico não seguem o esquema de cores do slide, ppFollowColorsScheme - Todas as cores do gráfico seguem o esquema de cores do slide, ppFollowColorsTextAndBackground - Somente o texto e o segundo plano seguem o esquema de cores do slide.

O objeto especificado deve ser um gráfico criado no gráfico ou no Microsoft Organization Chart. O valor da propriedade FollowColors pode ser uma destas constantes PpFollowColors .

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

Object

Retorna o objeto que representa interface de nível superior do objeto OLE especificado. Somente leitura.

Essa propriedade permite que você acesse as propriedades e métodos do aplicativo no qual o objeto OLE foi criado. Use a função TypeName para determinar o tipo de objeto que essa propriedade retorna para um objeto OLE específico.

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

ObjectVerbs

Retorna uma coleção ObjectVerbs contendo todos os verbos OLE para o objeto OLE especificado. Somente leitura.

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

Parent

Retorna o objeto parente para o objeto especificado.

ProgID

Retorna o identificador de programação ProgID para o objeto OLE especificado. Somente leitura.

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