Método Shapes.AddOLEObject (Publisher)
Adiciona um novo objeto Shape que representa um objeto OLE à coleção Shapes especificada.
Sintaxe
expressão. AddOLEObject (Esquerda, Superior, Largura, Altura, ClassName, FileName, Link)
expressão Uma variável que representa um objeto Formas.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Esquerda | Obrigatório | Variant | A posição da borda esquerda da forma que representa o objeto OLE. |
| Top | Obrigatório | Variant | A posição da borda superior da forma que representa o objeto OLE. |
| Width | Opcional | Variant | A largura da forma que representa o objeto OLE. O padrão é -1, significando que a largura da forma é automaticamente definida com base nos dados do objeto. |
| Height | Opcional | Variant | A altura da forma que representa o objeto OLE. O padrão é -1, o que significa que a altura da forma é definida automaticamente com base nos dados do objeto. |
| ClassName | Opcional | String | O nome da classe do objeto OLE a ser adicionada. |
| FileName | Opcional | String | O nome de arquivo do objeto OLE a ser adicionado. Se um caminho não for especificado, será usada a pasta de trabalho atual. |
| Link | Opcional | MsoTriState | Determina se o objeto OLE é vinculado ou incorporado na publicação. |
Valor de retorno
Forma
Comentários
Para os argumentos Esquerdo, Superior, Largura e Altura , os valores numéricos são avaliados em pontos; cadeias de caracteres podem estar em todas as unidades com suporte do Microsoft Publisher (por exemplo, "2.5 in").
Você deve especificar um ClassName ou um FileName. Se nenhum dos argumentos for especificado, ou ambos o forem, ocorrerá um erro.
O parâmetro Link pode ser uma das constantes MsoTriState declaradas na biblioteca de tipos do Microsoft Office e mostradas na tabela a seguir.
| Constante | Descrição |
|---|---|
| msoFalse | O objeto OLE está incorporado. |
| msoTrue | O objeto OLE está vinculado. É o padrão. |
Exemplo
O exemplo a seguir adiciona uma planilha do Microsoft Office Excel à primeira página da publicação ativa, ativando a planilha para edição.
Dim shpSheet As Shape
Set shpSheet = ActiveDocument.Pages(1).Shapes.AddOLEObject _
(Left:=72, Top:=72, ClassName:="Excel.Sheet")
shpSheet.OLEFormat.Activate
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.