Свойство CalendarModule.Position (Outlook)

Статья
04/07/2023

Возвращает или задает значение Long , представляющее порядковое положение объекта CalendarModule при его отображении в области навигации. Для чтения и записи.

Синтаксис

expression. Позиции

Выражение Переменная, представляющая объект CalendarModule .

Замечания

Для этого свойства можно задать только значение от 1 до 9. При попытке задать значение за пределами этого диапазона возникает ошибка.

Изменение значения этого свойства для данного объекта CalendarModule изменяет значения Position других модулей навигации в коллекции NavigationModules в зависимости от относительного изменения между новым и исходным значением.

Если новое значение меньше исходного значения, указанный объект CalendarModule перемещается в новую позицию, а другие модули навигации, которые уже находятся в этой новой позиции или ниже этой новой позиции, перемещаются вниз.
Если новое значение больше исходного значения, указанный объект CalendarModule перемещается вниз в новую позицию, а другие модули навигации, расположенные между старой и новой позицией, перемещаются вверх, заполняя старую позицию.

Пример

Следующий пример кода Visual Basic для приложений (VBA) пытается получить модуль навигации "Календарь" из области навигации. Если модуль успешно извлекается, код задает для свойства Position объекта CalendarModule значение "1", которое перемещает его в верхнюю часть области навигации. Наконец, код задает свойство CurrentModule объекта NavigationPane для полученного модуля Calendar , который выбирает его в области навигации.

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

См. также

Объект CalendarModule

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через