Classe CustomView - vue personnalisée (Excel VBA)

Cet objet représente une vue personnalisée d'un classeur. Pour utiliser une variable de classe CustomView, elle doit d'abord être instanciée, par exemple


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

For Each

Voici un exemple de traitement des éléments CustomView dans une collection


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

Cette méthode supprime l'objet.


ActiveWorkbook.CustomViews(1).Delete

Name

Renvoie une valeur de type String qui représente le nom de l'objet.


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

PrintSettings

Cette propriété a la valeur True si les paramètres d'impression sont inclus dans la vue personnalisée. Boolean (en lecture seule).


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

RowColSettings

Cette propriété a la valeur True si la vue personnalisée inclut les paramètres des lignes et des colonnes masquées (y compris les informations de filtrage). Boolean (en lecture seule).


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

Show

Affiche l'objet.


ActiveWorkbook.CustomViews(1).Show