Classe CustomView - exibição personalizada (Excel VBA)

A classe CustomView representa uma exibição da pasta de trabalho personalizada. 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)

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

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