TimelineView.MaxLabelWidth-Eigenschaft (Outlook)
Gibt an, oder legt einen Long -Wert, der die maximale Länge (in Zeichen) für die Beschriftung eines Outlook-Elements in das TimelineView -Objekt. Lese-/Schreibzugriff.
Syntax
Ausdruck. MaxLabelWidth
Ausdruck Eine Variable, die ein TimelineView-Objekt darstellt.
Hinweise
Diese Eigenschaft kann auf einen Wert zwischen 0 und 132 festgelegt werden. Wenn diese Eigenschaft auf einen Wert festgelegt ist, der niedriger als 0 ist, wird die Eigenschaft auf 0 festgelegt. Wenn diese Eigenschaft auf einen Wert festgelegt ist, der größer ist als 132, wird die Eigenschaft auf 132 festgelegt. Der Standardwert für diese Eigenschaft lautet 80.
Wenn diese Eigenschaft auf 0 festgelegt ist, werden die Beschriftungen für die Outlook-Elemente nicht in der Ansicht angezeigt.
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.