Clase CustomViews - vistas personalizadas (Excel VBA)

Colección de vistas personalizadas de un libro. Para usar una variable de clase CustomViews, primero debe ser instanciado, por ejemplo

Dim cvs as CustomViews
Set cvs = ActiveWorkbook.CustomViews

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos CustomViews en una colección.

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

Add

Crea una nueva vista personalizada.

Add (ViewName, PrintSettings, RowColSettings)

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

Arguments

Un argumento con nombre

ViewName (String) - Nombre de la nueva vista.

Optional arguments

Los siguientes argumentos son opcionales

PrintSettings - Boolean

RowColSettings - Boolean

Count

Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveWorkbook.CustomViews.Count

Item

Devuelve un solo objeto de una colección.

Item (ViewName)

ViewName: Número de índice o nombre del objeto.

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