Klasse CustomView (Excel VBA)

Die Klasse CustomView stellt eine benutzerdefinierte Arbeitsmappenansicht dar.

Set

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

Dim cvw as CustomView
Set cvw = ActiveWorkbook.CustomViews(ViewName:=1)

Die folgenden Prozeduren können zum Festlegen der CustomView Klassenvariablen verwendet werden : CustomViews.Item, CustomViews.Add und Workbook.CustomViews

For Each

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

With Worksheets(1) 
 .Cells(1,1).Value = "Name" 
 .Cells(1,2).Value = "Print Settings" 
 .Cells(1,3).Value = "RowColSettings" 
 rw = 0 
 For Each v In ActiveWorkbook.CustomViews 
 rw = rw + 1 
 .Cells(rw, 1).Value = v.Name 
 .Cells(rw, 2).Value = v.PrintSettings 
 .Cells(rw, 3).Value = v.RowColSettings 
 Next 
End With

Delete

Löscht das Objekt.

ActiveWorkbook.CustomViews(1).Delete

Name

Gibt einen String -Wert, der den Namen des Objekts darstellt.

Dim strName As String
strName = ActiveWorkbook.CustomViews(1).Name

Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

PrintSettings

True, falls die benutzerdefinierte Ansicht die Druckeinstellungen beinhaltet.

Dim booPrintSettings As Boolean
booPrintSettings = ActiveWorkbook.CustomViews(1).PrintSettings

RowColSettings

True, falls in der benutzerdefinierten Ansicht Einstellungen zu ausgeblendeten Zeilen und Spalten (einschließlich Filterinformationen) enthalten sind.

Dim booRowColSettings As Boolean
booRowColSettings = ActiveWorkbook.CustomViews(1).RowColSettings

Show

Zeigt das Objekt an.

ActiveWorkbook.CustomViews(1).Show

CustomViews.Add

Erstellt eine neue benutzerdefinierte Ansicht.

Syntax : expression.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.

Die folgenden Argumente sind optional

PrintSettings - Boolean

RowColSettings - Boolean

CustomViews.Count

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

Dim lngCount As Long
lngCount = ActiveWorkbook.CustomViews.Count

CustomViews.Item

Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Syntax : expression.Item (ViewName)

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

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

CustomViews.Parent

Gibt das übergeordnete Objekt für das angegebene Objekt zurück.