Share via


Método Shapes.AddOLEObject (PowerPoint)

Cria um objeto OLE. Retorna um objeto Shape representando o novo objeto OLE.

Sintaxe

expression. AddOLEObject( _Left_, _Top_, _Width_, _Height_, _ClassName_, _FileName_, _DisplayAsIcon_, _IconFileName_, _IconIndex_, _IconLabel_, _Link_ )

expressão Uma variável que representa um objeto Formas.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Left Opcional Single A posição (em pontos) do canto superior esquerdo do novo objeto em relação ao canto superior esquerdo do slide. O valor padrão é 0 (zero).
Top Opcional Single A posição (em pontos) do canto superior esquerdo do novo objeto em relação ao canto superior esquerdo do slide. O valor padrão é 0 (zero).
Width Opcional Single A largura inicial do objeto OLE, em pontos.
Height Opcional Single A altura inicial do objeto OLE, em pontos.
ClassName Opcional String O nome completo da classe do objeto OLE ou o ProgID para o objeto que está para ser criado. Você deve especificar os argumentos de ClassName ou de FileName para o objeto, mas não ambos.
FileName Opcional String O arquivo a partir do qual o objeto será criado. Se o caminho não for especificado, será utilizada a pasta atual de trabalho. Você deve especificar os argumentos de ClassName ou de FileName para o objeto, mas não ambos.
DisplayAsIcon Opcional MsoTriState Determina se o objeto OLE será exibido como um ícone.
IconFileName Opcional String O arquivo que contém o ícone a ser exibido.
IconIndex Opcional Long O índice do ícone em IconFileName. O primeiro ícone no arquivo possui o número de índice 0 (zero). Se um ícone com o número de índice determinado não existir em IconFileName, o ícone com o número de índice 1 (o segundo ícone no arquivo) é usado. O valor padrão é 0 (zero).
IconLabel Opcional String Um rótulo (legenda) a ser exibido abaixo do ícone.
Link Opcional MsoTriState Determina se o objeto OLE será vinculado ao arquivo do qual ele foi criado. Se você especificou um valor para ClassName, esse argumento deve ser msoFalse.

Valor de retorno

Forma

Exemplo

Este exemplo adiciona um documento do Word vinculado a myDocument.

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    FileName:="c:\my documents\testing.doc", Link:=msoTrue

Este exemplo adiciona uma nova planilha do Microsoft Excel a myDocument. A planilha será exibida como um ícone.

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=200, Height:=300, _ 
    ClassName:="Excel.Sheet", DisplayAsIcon:=True

Este exemplo adiciona um botão de comando a myDocument.

Set myDocument = ActivePresentation.Slides(1) 
myDocument.Shapes.AddOLEObject Left:=100, Top:=100, _ 
    Width:=150, Height:=50, ClassName:="Forms.CommandButton.1"

Confira também

Objeto Shapes

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.