Propiedad CalendarModule.Position (Outlook)
Devuelve o establece un valor Long que representa la posición ordinal del objeto CalendarModule cuando se muestra en el panel de navegación. Lectura/escritura.
Sintaxis
expresión. Posición
Expresión Variable que representa un objeto CalendarModule .
Comentarios
Esta propiedad solo puede establecerse en un valor entre 1 y 9. Si se intenta establecer en un valor fuera de ese intervalo, se producirá un error.
Cambiar el valor de esta propiedad para un objeto CalendarModule determinado cambia los valores de posición de los demás módulos de navegación en una colección NavigationModules, dependiendo del cambio relativo entre el valor nuevo y el valor original.
Si el valor nuevo es menor que el valor original, el objeto CalendarModule especificado asciende hasta la nueva posición y los demás módulos de exploración que ya están en o por debajo de éste nuevos posición mover hacia abajo.
Si el nuevo valor es mayor que el valor original, el objeto CalendarModule especificado desciende hasta la nueva posición y los otros módulos de navegación que están comprendidos en la posición antigua y la nueva posición se mueve hacia arriba, ocupar la posición antigua.
Ejemplo:
El siguiente código de ejemplo de Visual Basic para Aplicaciones (VBA) intenta recuperar el módulo de navegación Calendario desde el panel de navegación. Si recupera correctamente el módulo, el código establece la propiedad Position del objeto CalendarModule en "1", que lo mueve a la parte superior del panel de navegación. Por último, el código establece la propiedad CurrentModule del objeto NavigationPane en el módulo Calendar recuperado, que lo selecciona en el panel de navegación.
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
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.