Propriedade Addons.ItemU (Visio)

Retorna um objeto de uma coleção. Somente leitura.

Sintaxe

expressão. ItemU (NameOrIndex)

Expressão Uma variável que representa um objeto Addons .

Parâmetros

Valor de retorno

Addon

Comentários

Você pode recuperar um objeto em uma coleção Addons, Hyperlinks, Layers, Masters, MasterShortcuts, Pages, Shapes ou Styles passando o nome do objeto como uma expressão de cadeia de caracteres em uma Variant.

Se você recuperar um objeto Shape por nome, a propriedade ItemU pesquisa todas as formas no mestre ou na página que contém a coleção the Shapes, além da forma que contém a coleção. Portanto, o objeto Shape retornado pela propriedade ItemU pode ser uma forma que não esteja na coleção Shapes.

Você também pode passar a sequência de caracteres de ID única de um objeto Master ou Shape para a propriedade ItemU. Por exemplo:

objRet = vsoShapes.ItemU("{2287DC42-B167-11CE-88E9-0020AFDDD917}")

Se tal sequência de caracteres passar para a propriedade ItemU de uma coleção Shapes, todas as formas contidas na coleção são pesquisadas. As formas dentro das formas do grupo na forma contida não são pesquisadas.

Para pesquisar todas as formas na coleção, mais as formas dentro dos grupos e a forma contida na coleção, insira antes da sequência de caracteres de ID única um asterisco (*). Por exemplo:

objRet = vsoShapes.ItemU("*{2287DC42-B167-11CE-88E9-0020AFDDD917}")

Exemplo

Essa macro do Microsoft Visual Basic mostra como usar a propriedade ItemU da coleção Pages para obter a coleção Shapes. Em seguida, ele usa a propriedade ItemU da coleção Shapes para imprimir os nomes universais de todas as formas na Página 1 na janela Imediata.

Para executar essa macro, verifique se o documento ativo tem formas na Página 1.

 
Public Sub ItemU_Example() 
  
    Dim intCounter As Integer 
    Dim intShapeCount As Integer 
    Dim vsoShapes As Visio.Shapes  
 
    Set vsoShapes = ActiveDocument.Pages.ItemU(1).Shapes  
 
    Debug.Print "Shapes in Document: "; ActiveDocument.Name  
    Debug.Print "          on  Page: "; ActiveDocument.Pages.ItemU(1).Name  
 
    intShapeCount = vsoShapes.Count  
 
    If intShapeCount > 0 Then 
 
        For intCounter = 1 To intShapeCount  
            Debug.Print " "; vsoShapes.ItemU(intCounter).Name  
        Next intCounter 
  
    Else 
 
        Debug.Print " No Shapes On Page" 
  
    End If   
 
End Sub

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.