TimelineView.ShowWeekNumbers-Eigenschaft (Outlook)
Gibt zurück oder legt einen booleschen Wert, der angibt, ob Nummern Etiketten Woche in der Zeitskala für das TimelineView -Objekt angezeigt werden. Lese-/Schreibzugriff.
Syntax
Ausdruck. ShowWeekNumbers
Ausdruck Eine Variable, die ein TimelineView-Objekt darstellt.
Hinweise
Wenn diese Eigenschaft auf True festgelegt ist, hängt vom Wert der TimelineViewMode -Eigenschaft des Speicherorts in dem Woche Zahl Bezeichnungen in der Zeitskala für das TimelineView -Objekt angezeigt werden.
| Eigenschaftswert | Beschriftung |
|---|---|
| olTimelineViewDay | Angezeigt im oberen Bereich der Zeitskala, vor der Datumsbeschriftung. |
| olTimelineViewWeek | Angezeigt im oberen Bereich der Zeitskala, vor der Wochenbeschriftung. |
| olTimelineViewMonth | Angezeigt im unteren Bereich der Zeitskala, ersetzt die Tages- und Datumsbeschriftungen. |
Beispiel
Im folgende Visual Basic für Applikationen (VBA) wird das aktuelle TimelineView -Objekt zum Anzeigen von Outlook-Elementen von Month, mit Woche Zahl Etiketten im unteren Bereich der Zeitskala, mit Etiketten nicht mehr als 40 Zeichen konfiguriert.
Private Sub ConfigureMonthTimelineView()
Dim objTimelineView As TimelineView
If Application.ActiveExplorer.CurrentView.ViewType = _
olTimelineView Then
' Obtain a TimelineView object reference for the
' current timeline view.
Set objTimelineView = _
Application.ActiveExplorer.CurrentView
' Configure the TimelineView object so that it displays
' Outlook items by month and week, displaying labels
' no larger than 40 characters for Outlook items
' displayed in the view.
With objTimelineView
' Display items by month.
.TimelineViewMode = olTimelineViewMonth
' Display week numbers. If this value is
' set to False when TimelineViewMode is
' set to olTimelineViewMonth, the day
' numbers are displayed instead.
.ShowWeekNumbers = True
' Display labels for Outlook items
' while TimelineViewMode is set to
' olTimelineViewMonth.
.ShowLabelWhenViewingByMonth = True
' Show no more than the first 40 characters
' for each Outlook item in the view.
.MaxLabelWidth = 40
' Save and apply the view.
.Save
.Apply
End With
End If
End Sub
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.