Partager via


Propriété TimelineView.MaxLabelWidth (Outlook)

Renvoie ou définit une valeur Long qui représente la longueur maximale (en caractères) de l'étiquette d'un élément Outlook dans l'objet TimelineView. Lecture-écriture.

Syntaxe

expression. MaxLabelWidth

Expression Variable qui représente un objet TimelineView .

Remarques

Cette propriété peut prendre une valeur comprise entre 0 et 132. Si cette propriété est définie sur une valeur inférieure à 0, la propriété est définie sur 0. Si cette propriété est définie sur une valeur supérieure à 132, la propriété prend la valeur 132. La valeur par défaut de cette propriété est 80.

Si cette propriété prend la valeur 0, les étiquettes pour les éléments Outlook ne sont pas affichées dans l'affichage.

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

TimelineView, objet

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.