マンガでよめる痔のこと・薬のこと

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

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

A 回答 (2件)

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


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

何処でコンパイルエラーになっているか分かりますか?
    • good
    • 0
この回答へのお礼

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

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

No.1です。


「指定された値は境界を超えています」というエラーならシートの保護が掛かっていませんか?
    • good
    • 0
この回答へのお礼

ズバリ 正解です!

保護、掛けていました。

さすがです。

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

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

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

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


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

人気Q&Aランキング