Compartilhar via

Propriedade SharedWorkspaceLinks.ItemCountExceeded (Office)

  • Artigo

Obtém um valor booliano que indica se o número de itens SharedWorkspaceLinks na coleção excedeu os 99 que podem ser exibidos no painel de tarefas do Workspace Compartilhado . Somente leitura.

Observação

A partir do Microsoft Office 2010, este objeto ou membro foi preterido e não deve ser usado.

Sintaxe

expressão. ItemCountExceeded

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

Valor de retorno

Booliano

Comentários

O painel de tarefas de Espaço de trabalho compartilhado só pode exibir 99 arquivos do espaço de trabalho compartilhado e pastas, links, membros ou tarefas. Se mais de 99 itens forem adicionados a qualquer uma dessas coleções, a guia correspondente do painel de tarefas do Workspace Compartilhado deixará de exibir a lista de itens e exibirá um link para a página da Web do site do workspace compartilhado; a coleção não é mais preenchida localmente e sua propriedade Count retorna 0 (zero).

Além disso, depois que a propriedade ItemCountExceeded retornar True para uma das coleções listadas anteriormente, o desenvolvedor não poderá mais remediar a situação programaticamente excluindo itens da coleção para reduzir a contagem abaixo de 99 porque a coleção não está mais preenchida.

Exemplo

O exemplo a seguir verifica a propriedade Count da coleção SharedWorkspaceLinks . Se Count retornará 0 (zero), ele verifica a propriedade ItemCountExceeded para determinar se realmente o espaço de trabalho compartilhado não possui links salvos, ou se ela tem mais de 99 e o conjunto de links foi apagado.

ActiveWorkbook.SharedWorkspace.Refresh 
    If ActiveWorkbook.SharedWorkspace.Links.Count = 0 Then 
        If ActiveWorkbook.SharedWorkspace.Links.ItemCountExceeded Then 
            MsgBox "More than 99 links in shared workspace.", _ 
                vbInformation + vbOKOnly, "Item Count Exceeded" 
        Else 
            MsgBox "No links in shared workspace.", _ 
                vbInformation + vbOKOnly, "No Links" 
        End If 
    End If

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.