Classe ListGallery (Word VBA)

La classe ListGallery représente une seule galerie des formats de liste.

Set

Pour utiliser une variable de classe ListGallery, elle doit d'abord être instanciée, par exemple

Dim lgy as ListGallery
Set lgy = ListGalleries(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ListGallery : Application.ListGalleries et ListGalleries.Item

For Each

Voici un exemple de traitement des éléments ListGallery dans une collection

Dim lgy As ListGallery
For Each lgy In ListGalleries
	
Next lgy

ListGalleries.Count

Renvoie un type long qui représente le nombre de galeries de listes dans la collection.

Dim lngCount As Long
lngCount = ListGalleries.Count

ListGalleries.Item

Renvoie un objet ListGalleries spécifique appartenant à une collection.

Syntaxe : expression.Item (Index)

Index: Objet spécifique qui doit être renvoyé.

Dim lgy As ListGallery
Set lgy = ListGalleries(Index:=1)

ListGalleries.Parent

Renvoie un Object qui représente l'objet parent de l'objet ListGalleries spécifié.

Dim objParent As Object
Set objParent = ListGalleries.Parent

ListTemplates

Renvoie une collection ListTemplates qui représente tous les formats de liste de la bibliothèque de listes spécifiée.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

Set mytemp = ListGalleries(wdOutlineNumberGallery).ListTemplates(1) 
For each lev in mytemp.ListLevels 
 lev.NumberStyle = wdListNumberStyleLowercaseLetter 
Next lev 
ActiveDocument.Lists(2).ApplyListTemplate ListTemplate:=mytemp

Modified

True si le modèle de liste spécifié n'est pas le modèle de liste prédéfini situé à cet emplacement dans la bibliothèque de listes.

Utilisez la méthode Reset pour définir un modèle de liste dans une bibliothèque de listes dans le modèle de liste prédéfini.

Syntaxe : expression.Modified (Index)

Parent

Renvoie un type de données Object qui représente l'objet parent de l'objet ListGallery spécifié.

Dim objParent As Object
Set objParent = ListGalleries(1).Parent

Reset

Rétablit la mise en forme de liste d'origine pour le modèle de liste désigné par Index dans la série de modèles de liste spécifiée.

Syntaxe : expression.Reset (Index)

Index: Modèle à réinitialiser.

ListGalleries(wdNumberGallery).Reset(4) 
Selection.Range.ListFormat.ApplyListTemplate _ 
 ListTemplate:=ListGalleries(2).ListTemplates(4)