Propriété CalendarModule.Position (Outlook)
Renvoie ou définit une valeur de type Long qui représente la position ordinale de l’objet CalendarModule lorsqu’il est affiché dans le volet de navigation. En lecture/écriture
Syntaxe
expression. Position
Expression Variable qui représente un objet CalendarModule .
Remarques
Cette propriété n’accepte que les valeurs comprises entre 1 et 9. Une erreur survient si vous tentez de lui attribuer une valeur en dehors de cette plage.
Le fait de modifier la valeur de cette propriété pour un objet CalendarModule modifie les valeurs Position des autres modules de navigation d’une collection NavigationModules en fonction de la modification relative entre la nouvelle valeur et la valeur d’origine de la propriété.
Si la nouvelle valeur est inférieure à la valeur d’origine, l’objet CalendarModule spécifié se déplace vers le haut et pousse les autres modules de navigation déjà à cette position ou en dessous vers le bas.
Si la nouvelle valeur est supérieure à la valeur d’origine, l’objet CalendarModule spécifié se déplace vers le bas à la nouvelle position et les autres modules de navigation qui se trouvent entre l’ancienne position et la nouvelle position se déplacent vers le haut, en remplissant l’ancienne position.
Exemple
L’exemple de code Visual Basic pour Applications (VBA) suivant tente de récupérer le module de navigation Calendrier à partir du volet de navigation. S’il récupère correctement le module, le code définit la propriété Position de l’objet CalendarModule sur « 1 », ce qui le déplace vers le haut du volet de navigation. Enfin, le code définit la propriété CurrentModule de l’objet NavigationPane sur le module Calendar récupéré, qui le sélectionne dans le volet de navigation.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.