Propriedade Shapes.Item (Visio)

Retorna um item de uma coleção. A propriedade Item é a propriedade padrão para todas as coleções. Somente leitura.

Sintaxe

expressão. Item (NameUIDOrIndex)

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

Parâmetros

Valor de retorno

Forma

Comentários

Ao recuperar objetos de uma coleção, você poderá omitir Item da expressão porque ela é a propriedade padrão para todas as coleções. As seguintes instruções são equivalentes ao exemplo de sintaxe dado acima:

objRet = object(index)  
objRet = object(stringExpression)

Você pode recuperar um objeto em uma coleção Addons, Documents, Fonts, Hyperlinks, Layers, Masters, MasterShortcuts, OLEObjects, 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 Item 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 Item pode ser uma forma que não esteja na coleção Shapes.

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

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

Se tal cadeia de caracteres passar para a propriedade Item 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.Item("*{2287DC42-B167-11CE-88E9-0020AFDDD917}")

Para obter mais informações sobre como passar cadeias de caracteres de ID para a propriedade Item , consulte o tópico da propriedade UniqueID nesta referência.

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade Item para obter um objeto Page da coleção Pages do documento ativo e todos os objetos Shape na coleção Shapes do objeto Page. Ela imprime os nomes de todas as formas em Page1 na janela Immediate.

Antes de executar essa macro, verifique se o documento ativo possui formas em Page1.

Public Sub Item_Example() 
  
    Dim intCounter As Integer 
    Dim intShapeCount As Integer 
    Dim vsoShapes As Visio.Shapes  
 
    Set vsoShapes = ActiveDocument.Pages.Item(1).Shapes  
 
    Debug.Print "Shape Name List For..." 
    Debug.Print "Document: "; ActiveDocument.Name  
    Debug.Print "Page: "; ActiveDocument.Pages.Item(1).Name  
 
    intShapeCount = vsoShapes.Count  
 
    If intShapeCount > 0 Then 
        For intCounter = 1 To intShapeCount  
            Debug.Print " "; vsoShapes.Item(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.