Propriedade TimelineView.ShowWeekNumbers (Outlook)
Retorna ou define um valor Boolean que indica se os rótulos de número de semana são exibidos na escala de tempo para o objeto TimelineView. Leitura/gravação.
Sintaxe
expression. ShowWeekNumbers
Expressão Uma variável que representa um objeto TimelineView .
Comentários
Se essa propriedade for definida como True, o local em que os rótulos de número de semana são exibidos na escala de tempo para o objeto TimelineView depende do valor da propriedade TimelineViewMode.
| Valor da propriedade | Local do rótulo |
|---|---|
| olTimelineViewDay | Exibido na parte superior da escala de tempo, antes do rótulo de data. |
| olTimelineViewWeek | Exibido na parte superior da escala de tempo, antes do rótulo de semana. |
| olTimelineViewMonth | Exibido na parte inferior da escala de tempo, substituindo os rótulos de dia e data. |
Exemplo
O seguinte exemplo Visual Basic for Applications (VBA) configura o objeto TimelineView atual para exibir itens do Outlook por mês, com os rótulos de número semana na parte inferior da escala de tempo, com rótulos não há mais de 40 caracteres.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.