Свойство TimelineView.MaxLabelWidth (Outlook)

Статья
04/07/2023

Возвращает или задает значение Long , представляющее максимальную длину (в символах) для метки элемента Outlook в объекте TimelineView . Для чтения и записи.

Синтаксис

выражение. MaxLabelWidth

Выражение Переменная, представляющая объект TimelineView .

Замечания

Для этого свойства можно задать значение от 0 до 132. Если для этого свойства задано значение меньше 0, свойство имеет значение 0. Если для этого свойства задано значение больше 132, свойство имеет значение 132. Значение по умолчанию для этого свойства — 80.

Если для этого свойства задано значение 0, метки для элементов Outlook не отображаются в представлении.

Пример

В следующем примере Visual Basic для приложений (VBA) текущий объект TimelineView настраивается для отображения элементов Outlook по месяцам с метками числа недель в нижней части шкалы временной шкалы и метками длиной не более 40 символов.

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

См. также

Объект TimelineView

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через