Klasse ListGallery (Word VBA)

Die Klasse ListGallery stellt einen einzelnen Katalog von Listenformaten dar.

Set

Um eine ListGallery -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der ListGallery Klassenvariablen verwendet werden : Application.ListGalleries und ListGalleries.Item

For Each

Hier ist ein Beispiel für die Verarbeitung der ListGallery -Elemente in einer Sammlung

Dim lgy As ListGallery
For Each lgy In ListGalleries
	
Next lgy

ListGalleries.Count

Gibt einen Wert vom Typ Long zurück, der die Anzahl der Listen Kataloge in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ListGalleries.Count

ListGalleries.Item

Gibt ein einzelnes ListGalleries -Objekt in einer Auflistung zurück.

Syntax : expression.Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

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

ListGalleries.Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ListGalleries-Objekts darstellt.

Dim objParent As Object
Set objParent = ListGalleries.Parent

ListTemplates

Gibt eine ListTemplates -Auflistung zurück, die alle Listenformate für den angegebenen Listenkatalog darstellt.

Informationen zum Zurückgeben eines einzelnen Elements einer Auflistung finden Sie unter zurückgeben eines Objekts aus einer Auflistung.

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, wenn es sich bei der angegebenen Listenvorlage nicht um die integrierte Listenvorlage für diese Position im Listenkatalog handelt.

Verwenden Sie die Reset -Methode, um eine Listenvorlage in einem Listenkatalog zurück auf die integrierte Listenvorlage festzulegen.

Syntax : expression.Modified (Index)

Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen ListGallery-Objekts darstellt.

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

Reset

Setzt die Listenvorlage, die durch Index für den angegebenen Listenkatalog angegeben wurde, auf das integrierte Listenvorlagenformat zurück.

Syntax : expression.Reset (Index)

Index: Die zurückzusetzende Vorlage.

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