Classe CustomView (Excel VBA)

A classe CustomView representa uma exibição da pasta de trabalho personalizada.

Set

Para usar uma variável de classe CustomView, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo CustomView: CustomViews.Item, CustomViews.Add e Workbook.CustomViews

For Each

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

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

Exclui o objeto.

ActiveWorkbook.CustomViews(1).Delete

Name

Retorna um valor String que representa o nome do objeto.

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

Parent

Retorna o objeto pai do objeto especificado. Somente leitura.

PrintSettings

True se forem incluídas definições de impressão na exibição personalizada. Boolean somente leitura.

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

RowColSettings

True se a exibição personalizada incluir definições de linhas e colunas ocultas incluindo informações de filtro. Boolean somente leitura.

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

Show

Exibe o objeto.

ActiveWorkbook.CustomViews(1).Show

CustomViews.Add

Cria uma nova exibição personalizada.

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

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.

CustomViews.Count

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

Dim lngCount As Long
lngCount = ActiveWorkbook.CustomViews.Count

CustomViews.Item

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

Sintaxe : expression.Item (ViewName)

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

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

CustomViews.Parent

Retorna o objeto pai do objeto especificado. Somente leitura.