エクセルのマクロでSelection.Shaperangeを使用した時のエラーについて

エクセルでマクロを作り始めた初心者です。
選択した図形に対して色やフォントなどを変更したいため、Selection.Shaperangeを使っています。
例えば下記のようなものです。
Sub 図形の文字を太くする()
Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoTrue
End Sub
しかし、図形を選択していない時にこのマクロを動かすとエラーが発生します。
このエラーが発生しないようにするにはどうすればよいでしょうか？
ご教授よろしくお願いいたします。

No.1 ベストアンサー 回答者： OverTheGalaxy 回答日時： 2016/01/20 06:47

If VarType(Selection) = vbObject Then

この回答へのお礼

早速のご回答ありがとうございました。
エラーが出ないことを確認できました。
なるほど。選択したものがオブジェクトなら実行するようにすればいいのですね。
とても勉強になりました。

お礼日時：2016/01/20 12:04