Clase CustomView (Excel VBA)

La clase CustomView representa una vista personalizada de un libro.

Set

Para usar una variable de clase CustomView, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase CustomView : CustomViews.Item, CustomViews.Add y Workbook.CustomViews

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

Parent

Devuelve el objeto primario del objeto especificado.

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

CustomViews.Add

Crea una nueva vista personalizada.

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

Los siguientes argumentos son opcionales

PrintSettings - Boolean

RowColSettings - Boolean

CustomViews.Count

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

Dim lngCount As Long
lngCount = ActiveWorkbook.CustomViews.Count

CustomViews.Item

Devuelve un solo objeto de una colección.

Sintaxis : expression.Item (ViewName)

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

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

CustomViews.Parent

Devuelve el objeto primario del objeto especificado.