プロが教える店舗&オフィスのセキュリティ対策術

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

gooドクター

A 回答 (1件)

If VarType(Selection) = vbObject Then

    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング