スライド表示とマスター表示を切り替えるPowerPointマクロ

やりたいこと

スライドを編集中に、一瞬でマスタ表示に切り替えたい。

ソースコード

Module1

Option Explicit

'スライド表示とマスター表示を切り替える
Public Sub SwichView()
    Dim i As Integer

    If cView = "Slide" Then
        If ActiveWindow.Selection.Type = ppSelectionNone Then
            Call ShowMaster
        Else
            i = ActiveWindow.Selection.SlideRange.CustomLayout.Index
            Call ShowMaster
            ActiveWindow.View.Slide.CustomLayouts.item(i).Select
        End If
    ElseIf cView = "Master" Then
        Call ShowSlide
    Else
        MsgBox "スライドかマスターを表示してください"
    End If
End Sub

'マスターを表示
Private Sub ShowMaster()
    Application.ActiveWindow.ViewType = ppViewMasterThumbnails
End Sub

'スライドを表示
Private Sub ShowSlide()
    Application.ActiveWindow.ViewType = ppViewSlide
    Application.ActiveWindow.ViewType = ppViewNormal
End Sub

'表示されているビュータイプを判定する関数
Private Function cView() As String
    Dim p As Pane

    For Each p In ActiveWindow.Panes
        If p.ViewType = ppViewSlide Then
            cView = "Slide"
            Exit Function
        ElseIf p.ViewType = ppViewSlideMaster Then
            cView = "Master"
            Exit Function
        End If
    Next
    cView = "Others"

End Function

注意

スライドを選択していない時だとエラーが出るかも。エラー処理は追って追加します。 修正済。
スライドを選択しているときは、スライドに対応したマスターのレイアウトを選択する。
なお、マスターが複数ある場合には対応していない。

参考

1. スライドマスタを簡単に表示する−Shiftキー＋標準表示ボタン

2. PPTのVBAについて質問です。 PowerPointの