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