VBA Действие для переключения показать / скрыть панель задач / календарь - PullRequest
Новая
       32

VBA Действие для переключения показать / скрыть панель задач / календарь

0 голосов
/ 08 февраля 2019

Я новичок в VBA и пытаюсь создать кнопку, которая позволяет включать и выключать отображение / скрытие календаря панели задач Outlook (см. Скриншот).

Снимок экрана

К сожалению, я не смог найти правильный объект для этого.Может ли кто-нибудь помочь в этом?

Моя попытка выглядит так: 

Sub HidePreviewPane()
    Dim myOlApp As New Outlook.Application
    Dim myOlExp As Outlook.Explorer
    Set myOlExp = myOlApp.ActiveExplorer

    If myOlExp.IsPaneVisible(olPreview) = False Then
        myOlExp.ShowPane olPreview, True
    ElseIf myOlExp.IsPaneVisible(olPreview) = True Then
        myOlExp.ShowPane olPreview, False
    End If

    Set myOlApp = Nothing
    Set myOlExp = Nothing
End Sub
...