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