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

CalendarModule, objet

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.