CalendarModule.Position property (Outlook)
Dient zum Zurückgeben oder Festlegen eines Long-Werts, der die Ordnungsposition des CalendarModule-Objekts darstellt, wenn es im Navigationsbereich angezeigt wird. Lese-/Schreibzugriff.
Syntax
Ausdruck. Position
Ausdruck Eine Variable, die ein CalendarModule-Objekt darstellt.
Hinweise
Diese Eigenschaft kann nur auf einen Wert zwischen 1 und 9 festgelegt werden. Wenn Sie versuchen, die Eigenschaft auf einem Wert außerhalb dieses Bereichs festzulegen, tritt ein Fehler auf.
Ä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 den ursprünglichen Wert.
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.
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.
Beispiel
Der folgende vba-Beispielcode (Visual Basic for Applications) versucht, das Kalendernavigationsmodul aus dem Navigationsbereich abzurufen. Wenn das Modul erfolgreich abgerufen wird, legt der Code die Position-Eigenschaft des CalendarModule-Objekts auf "1" fest, wodurch es an den anfang des Navigationsbereichs verschoben wird. Schließlich legt der Code die CurrentModule-Eigenschaft des NavigationPane-Objekts auf das abgerufene Calendar-Modul fest, das es im Navigationsbereich auswählt.
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 auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.