Método Worksheet.OLEObjects (Excel)

Devolve um objeto que representa um único objeto OLE (um OLEObject) ou uma coleção de todos os objetos OLE (uma coleção OLEObjects ) no gráfico ou folha. Somente leitura.

Sintaxe

expressão. OLEObjects (Índice)

expressão Uma variável que representa um objeto de Folha de Cálculo .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Índice	Opcional	Variant	O nome ou número do objeto OLE.

Valor de retorno

Object

Exemplo

Este exemplo cria uma lista de tipos de vínculos para os objetos OLE de Sheet1. A lista aparece em uma nova planilha criada pelo exemplo.

Set newSheet = Worksheets.Add 
i = 2 
newSheet.Range("A1").Value = "Name" 
newSheet.Range("B1").Value = "Link Type" 
For Each obj In Worksheets("Sheet1").OLEObjects 
 newSheet.Cells(i, 1).Value = obj.Name 
 If obj.OLEType = xlOLELink Then 
 newSheet.Cells(i, 2) = "Linked" 
 Else 
 newSheet.Cells(i, 2) = "Embedded" 
 End If 
 i = i + 1 
Next

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.