Propriedade CalendarModule.Position (Outlook)
Retorna ou define um valor Long que representa a posição ordinal do objeto CalendarModule quando ele é exibido no painel de navegação. Leitura/gravação.
Sintaxe
expressão. Posição
Expressão Uma variável que representa um objeto CalendarModule .
Comentários
Essa propriedade pode ser definida apenas como um valor entre 1 e 9. Ocorrerá um erro se você tentar definir essa propriedade como um valor fora desse intervalo.
Alterar o valor dessa propriedade para um determinado objeto CalendarModule altera os valores de posição de outros módulos de navegação em uma coleção NavigationModules, dependendo da alteração relativa entre o novo valor e o valor original.
Se o novo valor for menor que o valor original, o objeto CalendarModule especificado move para cima, para a nova posição e os outros módulos de navegação que já estão na ou abaixo que novas posicionar mover para baixo.
Se o novo valor for maior que o valor original, o objeto CalendarModule especificado move para baixo para a nova posição e os outros módulos de navegação que estão entre a posição antiga e a nova posição mover para cima, preenchendo a posição antiga.
Exemplo
O código de exemplo de Visual Basic for Applications (VBA) a seguir tenta recuperar o módulo de navegação Calendário do painel de navegação. Se ele recuperar com êxito o módulo, o código definirá a propriedade Position do objeto CalendarModule como '1', que o move para a parte superior do painel de navegação. Por fim, o código define a propriedade CurrentModule do objeto NavigationPane como o módulo Calendar recuperado, que o seleciona no painel de navegação.
Sub MoveCalendarModuleFirst()
Dim objPane As NavigationPane
Dim objModule As CalendarModule
On Error GoTo ErrRoutine
' Get the current NavigationPane object.
Set objPane = Application.ActiveExplorer.NavigationPane
' Get the Calendar navigation module
' from the navigation pane.
Set objModule = objPane.Modules.GetNavigationModule( _
olModuleCalendar)
' If a CalendarModule object is present,
' make it the first navigation module displayed in the
' Navigation Pane.
If Not (objModule Is Nothing) Then
objModule.Position = 1
End If
' Select the Calendar navigation module in the
' Navigation Pane.
Set objPane.CurrentModule = objModule
EndRoutine:
On Error GoTo 0
Set objModule = Nothing
Set objPane = Nothing
Exit Sub
ErrRoutine:
Debug.Print Err.Number & " (&H" & Hex(Err.Number) & ")"
Select Case Err.Number
Case -2147024809 '&H80070057
' Typically occurs if you set the Position
' property less than 1 or greater than 9.
MsgBox Err.Number & " - " & Err.Description, _
vbOKOnly Or vbCritical, _
"MoveCalendarModuleFirst"
End Select
GoTo EndRoutine
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.