Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Enthält eine Auflistung aller View -Objekte im aktuellen Ordner.
Hinweise
Verwenden Sie die Views -Eigenschaft des Folder -Objekts, um die Views -Auflistung zurückzugeben. Verwenden Sie Ansichten (Index), wobei index der Name oder die Position des Objekts innerhalb der Auflistung ist, um ein einzelnes View-Objekt zurückzugeben.
Use the Add method of the views collection to add a new view to the collection.
Verwenden Sie die Remove -Methode, um eine Ansicht aus der Auflistung zu entfernen.
Beispiel
Das folgende Beispiel gibt ein View -Objekt vom Typ olTableView mit dem Namen Table View zurück. Stellen Sie vor dem Ausführen dieses Beispiels sicher, dass eine Ansicht namens "Table View" vorhanden ist.
Sub GetView()
'Returns a view called Table View
Dim objName As NameSpace
Dim objViews As Views
Dim objView As View
Set objName = Application.GetNamespace("MAPI")
Set objViews = objName.GetDefaultFolder(olFolderInbox).Views
'Return a view called Table View
Set objView = objViews.Item("Table View")
End Sub
Das folgende Beispiel fügt eine neue Ansicht vom Typ OlIconView im Ordner "Notizen" des Benutzers.
Hinweis
[!HINWEIS] Die Add -Methode schlägt fehl, wenn bereits eine Ansicht mit dem gleichen Namen vorhanden ist.
Sub CreateView()
'Creates a new view
Dim objName As NameSpace
Dim objViews As Views
Dim objNewView As View
Set objName = Application.GetNamespace("MAPI")
Set objViews = objName.GetDefaultFolder(olFolderNotes).Views
Set objNewView = objViews.Add(Name:="New Icon View Type", _
ViewType:=olIconView, SaveOption:=olViewSaveOptionThisFolderEveryone)
End Sub
Im nachfolgenden Beispiel wird die oben erstellte Ansicht, "New Icon View Type", aus der Auflistung entfernt.
Sub DeleteView()
'Deletes a view from the collection
Dim objName As NameSpace
Dim objViews As Views
Dim objNewView As View
Set objName = Application.GetNamespace("MAPI")
Set objViews = objName.GetDefaultFolder(olFolderNotes).Views
objViews.Remove ("New Icon View Type")
End Sub
Ereignisse
| Name |
|---|
| ViewAdd |
| ViewRemove |
Methoden
| Name |
|---|
| Add |
| Item |
| Remove |
Eigenschaften
| Name |
|---|
| Application |
| Class |
| Count |
| Parent |
| Session |
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.