非表示スライドの判定
.SlideShowTransition.Hidden = msoTrue
選択中のスライドの数
ActiveWindow.Selection.SlideRange.Count
ただし、上記は1つもスライドを選択していない場合にエラーとなってしまいます。
それを回避するには、以下のような関数を作って呼び出します。
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 で、スライドを1枚も選択していないことを判定できるようです。
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プロパティにより変更可能