図形挿入VBA

いつもお世話になっております。
図形挿入をマクロ記録で行った結果が以下のコードです

ActiveSheet.Shapes.AddShape(msoShapeOval, 544, 203, 20, 18).Select
Selection.ShapeRange.Fill.Visible = msoFalse
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With

しかし、これを実行するとコンパイルエラーが出ます。どこかの参照設定にチェックが入ってないのでしょうか？　どなたか教えていただけますでしょうか。よろしくお願いいたします。

質問者からの補足コメント

• すいません、ほかのファイルで試したらエラーは出ませんでした・・・・
  何でしょうかねぇ

    補足日時：2020/06/18 19:27

No.1 ベストアンサー 回答者： nekoronda 回答日時： 2020/06/18 18:57

特に私の環境ではコンパイルエラーは出ません。

参照設定も初期設定のままです。

何処でコンパイルエラーになっているか分かりますか？

この回答へのお礼

回答ありがとうございます。
ActiveSheet.Shapes.AddShape(msoShapeOval, 544, 203, 20, 18).Select　のところで　実行時エラー　指定された値は境界を超えています
になります。さきほどは、変数が定義されていませんのコンパイルエラー・だったのですが、今確認したら実行時エラーになっていました。
すごい不思議です。

お礼日時：2020/06/18 19:15

No.2 回答者： nekoronda 回答日時： 2020/06/18 19:29

No.1です。

「指定された値は境界を超えています」というエラーならシートの保護が掛かっていませんか？

この回答へのお礼

ズバリ　正解です！

保護、掛けていました。

さすがです。

ありがとうございました。

お礼日時：2020/06/18 20:06