CalendarModule.Position Property (Outlook)CalendarModule.Position Property (Outlook)

Gibt zurück oder legt einen Long -Wert, der die Ordnungsposition des CalendarModule -Objekt darstellt, wenn sie im Navigationsbereich angezeigt wird.Returns or sets a Long value that represents the ordinal position of the CalendarModule object when it is displayed in the Navigation Pane. Lese-/Schreibzugriff.Read/write.

SyntaxSyntax

Ausdruck.expression. Position

Ausdruck Eine Variable, die ein CalendarModule -Objekt darstellt.expression A variable that represents a CalendarModule object.

HinweiseRemarks

Diese Eigenschaft kann nur auf einen Wert zwischen 1 und 9 festgelegt werden.This property can only be set to a value between 1 and 9. Wenn Sie versuchen, die Eigenschaft auf einem Wert außerhalb dieses Bereichs festzulegen, tritt ein Fehler auf.An error occurs if you attempt to set it to a value outside of that range.

Ändern des Werts dieser Eigenschaft für ein bestimmtes CalendarModule -Objekt ändert die Position Werte anderer Navigationsmodule in einer NavigationModules -Auflistung, je nach der relativen Änderung zwischen dem neuen Wert und der ursprünglichen Wert.Changing the value of this property for a given CalendarModule object changes the Position values of other navigation modules in a NavigationModules collection, depending on the relative change between the new value and the original value.

  • Wenn der neue Wert kleiner als der ursprüngliche Wert ist, das angegebene CalendarModule -Objekt an die neue Position nach oben, und die anderen Navigationsmodule, die bereits an oder unterhalb, neu sind positionieren verschieben nach unten.If the new value is less than the original value, the specified CalendarModule object moves up to the new position and the other navigation modules that are already at or below that new position move down.

  • Ist der neue Wert größer als der ursprüngliche Wert, das angegebene CalendarModule -Objekt wird an die neue Position nach unten verschoben und die anderen Navigationsmodule, die zwischen der alten und der neuen Position nach oben, füllen die alte Position.If the new value is greater than the original value, the specified CalendarModule object moves down to the new position and the other navigation modules that are between the old position and the new position move up, filling the old position.

BeispielExample

Im folgende Visual Basic für Applikationen (VBA) Beispielcode versucht, das Navigationsmodul Kalender im Navigationsbereich abzurufen.The following Visual Basic for Applications (VBA) sample code attempts to retrieve the Calendar navigation module from the Navigation Pane. Wenn sie das Modul erfolgreich abgerufen, werden im Code die Position -Eigenschaft des CalendarModule -Objekts auf "1", die sie an den Anfang des Navigationsbereichs verschiebt festgelegt.If it successfully retrieves the module, the code sets the Position property of the CalendarModule object to '1,' which moves it to the top of the Navigation Pane. Schließlich wird der Code die CurrentModule -Eigenschaft des NavigationPane -Objekts auf die abgerufenen Kalendermodul, das sie im Navigationsbereich auswählt.Finally, the code sets the CurrentModule property of the NavigationPane object to the retrieved Calendar module, which selects it in the Navigation Pane.

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

Siehe auchSee also

CalendarModule-ObjektCalendarModule Object