VBAでオブジェクトが選択されているかどうかを判定する方法

エクセル／パワーポイントのVBAについて質問です。
エクセル／パワ＾ポイント上で、既に選択されているオブジェクトを塗りつぶすマクロを作成しましたが、何も選択されていない状況でマクロを実行するとエラーが返ってしまいます。マクロを実行したときに、オブジェクトが選択されていない場合には「オブジュエクトを選択してから実行してください」という趣旨のメッセージボックスをだしてエラーを回避したいのですが、どのような構文を使えばよろしいのでしょうか。

（※同じ趣旨の質問を別サイトでも展開しています。いずれかで回答が得られた場合には遅滞なくその旨コメントさせていただきますのでどうぞ宜しくお願い致します。）

No.1 ベストアンサー 回答者： --HV-- 回答日時： 2010/01/11 18:10

手許にpptの例がありました。

' 何も選択していない場合
If ActiveWindow.Selection.Type = ppSelectionNone Then
MyMsg = MsgBox("オブジェクトを選択していません。", vbCritical, "警告")
End
End If

Excelにも似たような手法があると思います。

この回答へのお礼

早速ありがとうございました。
エクセルの方は、こちらの構文から探してみようと思います。

お礼日時：2010/01/11 18:22