Propiedad TimelineView.ShowWeekNumbers (Outlook)
Devuelve o establece un valor booleano que indica si se muestran etiquetas de número de semana en la escala de tiempo para el objeto TimelineView. Lectura y escritura.
Sintaxis
expresión. ShowWeekNumbers
Expresión Variable que representa un objeto TimelineView .
Comentarios
Si esta propiedad se establece en True, la ubicación en la que se muestran etiquetas de número de semana en la escala de tiempo para el objeto TimelineView depende del valor de la propiedad TimelineViewMode.
| Valor de la propiedad | Ubicación de la etiqueta |
|---|---|
| olTimelineViewDay | Se muestra en la parte superior de la escala de tiempo, delante de la etiqueta de fecha. |
| olTimelineViewWeek | Se muestra en la parte superior de la escala de tiempo, delante de la etiqueta de semana. |
| olTimelineViewMonth | Se muestra en la parte inferior de la escala de tiempo, en lugar de las etiquetas de día y de fecha. |
Ejemplo:
El siguiente de Visual Basic para Aplicaciones (VBA) se configura el objeto TimelineView actual para mostrar elementos de Outlook por meses, con etiquetas de número de semana en la parte inferior de la escala de tiempo, con etiquetas de no más 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
Consulte también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.