Classe CustomViews - exibições (Excel VBA)

Uma coleção de exibições de pastas de trabalho personalizadas. Para usar uma variável de classe CustomViews, ela primeiro precisa ser instanciada por exemplo

Dim cvs as CustomViews
Set cvs = ActiveWorkbook.CustomViews

For Each

Aqui está um exemplo de processamento dos itens CustomViews em uma coleção.

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

Add

Cria uma nova exibição personalizada.

Add (ViewName, PrintSettings, RowColSettings)

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

Arguments

O seguinte argumento é necessário

ViewName (String) - O nome do novo modo de exibição.

Optional arguments

Os seguintes argumentos são opcionais

PrintSettings (Boolean) - True para incluir as configurações de impressão na exibição personalizada.

RowColSettings (Boolean) - True para incluir as configurações de linhas e colunas ocultas (inclusive informações de filtro) na exibição personalizada.

Count

Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveWorkbook.CustomViews.Count

Item

Retorna um único objeto de uma coleção.

Item (ViewName)

ViewName: O nome ou número de índice do objeto.

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