Klasse CustomView - benutzerdefinierte Arbeitsmappenansicht (Excel VBA)

Die Klasse CustomView stellt eine benutzerdefinierte Arbeitsmappenansicht dar. Um eine CustomView -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

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

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