Propriedade CalendarView.DayWeekTimeScale (Outlook)
Retorna ou define uma constante OlDayWeekTimeScale que represente a escala utilizada para representar os períodos de tempo em um objeto CalendarView. Leitura/gravação.
Sintaxe
expression. DayWeekTimeScale
Expressão Uma variável que representa um objeto CalendarView .
Exemplo
O seguinte exemplo Visual Basic for Applications (VBA) cria um novo objeto CalendarView na pasta calendário padrão e, em seguida, configura para 14 dias consecutivos são exibidas em modo de vários dia, com itens do Outlook exibidos em uma escala de tempo por hora.
Sub CreateTwoWeekView()
Dim objNamespace As NameSpace
Dim objFolder As Folder
Dim objView As CalendarView
' Obtain Folder object reference to the Calendar default folder.
Set objNamespace = Application.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)
' Create a new CalendarView object named "Two Weeks".
Set objView = objFolder.Views.Add("Two Weeks", _
olCalendarView, _
olViewSaveOptionAllFoldersOfType)
' Configure the new CalendarView object.
With objView
' Display the view in multi-day mode.
.CalendarViewMode = olCalendarViewMultiDay
' Display 14 consecutive days in multi-day
' mode.
.DaysInMultiDayMode = 14
' Set the time scale for the view in one-hour
' intervals.
.DayWeekTimeScale = olTimeScale60Minutes
' Save and apply the new CalendarView object.
.Save
.Apply
End With
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.