Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Retorna o caminho do arquivo no qual o ícone de um objeto OLE está armazenado. String somente leitura.
Sintaxe
expression. IconPath
Expressão Uma expressão que retorna um objeto 'OLEFormat'.
Exemplo
Este exemplo exibe o caminho de cada objeto OLE incorporado exibido como um ícone no documento ativo.
Dim shapeLoop As Shape
For Each shapeLoop In ActiveDocument.Shapes
If shapeLoop.Type = msoEmbeddedOLEObject Then
If shapeLoop.OLEFormat.DisplayAsIcon = True Then _
Msgbox shapeLoop.OLEFormat.IconPath
End If
Next shapeLoop
Confira também
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.