Propriété SharedWorkspaceLinks.ItemCountExceeded (Office)

  • Article

Obtient une valeur booléenne qui indique si le nombre d’éléments SharedWorkspaceLinks dans la collection a dépassé les 99 qui peuvent être affichés dans le volet Office Espace de travail partagé . En lecture seule.

Remarque

À partir de Microsoft Office 2010, cet objet ou ce membre ne doit plus être utilisé.

Syntaxe

expression. ItemCountExceeded

Expression Variable qui représente un objet SharedWorkspaceLinks .

Valeur renvoyée

Booléen

Remarques

Le volet Office Espace de travail partagé peut uniquement afficher 99 fichiers et dossiers d’espace de travail partagé, liens, membres ou tâches. Si plus de 99 éléments sont ajoutés à l’une de ces collections, l’onglet correspondant du volet Office Espace de travail partagé cesse d’afficher la liste des éléments et affiche un lien vers la page web du site d’espace de travail partagé à la place . la collection n’est plus remplie localement et sa propriété Count renvoie 0 (zéro).

En outre, une fois que la propriété ItemCountExceededed a retourné true pour l’une des collections répertoriées précédemment, le développeur ne peut plus remédier à la situation par programme en supprimant des éléments de la collection pour réduire le nombre inférieur à 99, car la collection n’est plus remplie.

Exemple

L’exemple suivant vérifie la propriété Count de la collection SharedWorkspaceLinks . Si Count renvoie la valeur 0 (zéro), il vérifie la propriété ItemCountExceeded pour déterminer si l'espace de travail partagé ne possède effectivement aucun lien enregistré ou s'il en détient plus de 99, auquel cas la collection de liens a été effacée.

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

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.