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

Objeto CalendarModule

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.