Slideに関する操作

非表示スライドの判定

.SlideShowTransition.Hidden = msoTrue

選択中のスライドの数

ActiveWindow.Selection.SlideRange.Count

ただし、上記は１つもスライドを選択していない場合にエラーとなってしまいます。

それを回避するには、以下のような関数を作って呼び出します。

Public Function SelectionCount() As Long
    On Error Resume Next
    SelectionCount = ActiveWindow.Selection.SlideRange.Count
    If (Err.Number <> 0) Then
        SelectionCount = 0
        Err.Clear
    End If
End Function

追記

Selection.Type = ppSelectionNone で、スライドを１枚も選択していないことを判定できるようです。

On Error Resume Next を使わずに書き直したものが以下の関数です。

こちらのほうが、簡潔で分かりやすいですね。

Public Function SelectionCount() As Long
    If (ActiveWindow.Selection.Type = ppSelectionNone) Then
        'スライド未選択時
        SelectionCount = 0
    Else
        'スライド選択時 
        SelectionCount = ActiveWindow.Selection.SlideRange.Count
    End If
End Function

スライド名

デフォルトで「Slide<連番>」という名前が自動で付与される。

.Nameプロパティにより変更可能