Propriété TimelineView.ShowWeekNumbers (Outlook)
Renvoie ou définit une valeur Boolean qui indique si les étiquettes de numéro de semaine sont affichées sur l'échelle de chronologie de l'objet TimelineView. Lecture-écriture.
Syntaxe
expression. ShowWeekNumbers
Expression Variable qui représente un objet TimelineView .
Remarques
Si cette propriété a la valeur True, l’emplacement auquel les étiquettes de numéro de semaine s’affichent sur l’échelle de chronologie de l’objet TimelineView dépend de la valeur de la propriété TimelineViewMode.
| Valeur de la propriété | Emplacement de l'étiquette |
|---|---|
| olTimelineViewDay | Affichée dans la partie supérieure de l'échelle de chronologie, avant l'étiquette de date. |
| olTimelineViewWeek | Affichée dans la partie supérieure de l'échelle de chronologie, avant l'étiquette de semaine. |
| olTimelineViewMonth | Affichée dans la partie inférieure de l'échelle de chronologie, à la place des étiquettes de jour et de date. |
Exemple
L’exemple Visual Basic pour Applications (VBA) configure l’objet TimelineView actif pour afficher les éléments Outlook par mois, avec des étiquettes de numéro de semaine, comportant un maximum de 40 caractères, dans la partie inférieure de l’échelle de chronologie.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.