Klasse CustomViews - benutzerdefinierter Arbeitsmappenansichten (Excel VBA)

Eine Auflistung benutzerdefinierter Arbeitsmappenansichten. Um eine CustomViews -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim cvs as CustomViews
Set cvs = ActiveWorkbook.CustomViews

For Each

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

Dim cvw As CustomView
For Each cvw In ActiveWorkbook.CustomViews
	
Next cvw

Add

Erstellt eine neue benutzerdefinierte Ansicht.

Add (ViewName, PrintSettings, RowColSettings)

Dim strViewName As String: strViewName = 
Dim cvw As CustomView
Set cvw = ActiveWorkbook.CustomViews.Add(ViewName:=strViewName)

Arguments

Ein benanntes Argument

ViewName (String) - Der Name der neuen Ansicht.

Optional arguments

Die folgenden Argumente sind optional

PrintSettings - Boolean

RowColSettings - Boolean

Count

Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = ActiveWorkbook.CustomViews.Count

Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Item (ViewName)

ViewName: Der Name oder die Indexnummer für das Objekt.

Dim cvw As CustomView
Set cvw = ActiveWorkbook.CustomViews(ViewName:="Current Inventory")