Clase CustomView - vista personalizada (Excel VBA)

La clase CustomView representa una vista personalizada de un libro. Para usar una variable de clase CustomView, primero debe ser instanciado, por ejemplo

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

For Each

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

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

Elimina el objeto.

ActiveWorkbook.CustomViews(1).Delete

Name

Devuelve un valor de tipo String que representa el nombre del objeto.

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

PrintSettings

True si la vista personalizada incluye la configuración de la impresora.

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

RowColSettings

True para que la vista personalizada incluya la configuración de filas y columnas ocultas (incluyendo la información de filtros).

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

Show

Muestra el objeto.

ActiveWorkbook.CustomViews(1).Show