[[20140710165833]]　『エラー438が出る』（しんぼう）　ページの最後に飛ぶ

『エラー438が出る』（しんぼう）

 エクセル２０１３　Ｗｉｎ７
 エクセル２０１０　Ｗｉｎ７
 を使用しています。

 ＶＢＡマクロにてとあるセル付近に楕円を描いて塗りつぶしを無くす
 というプログラムをかきました。下記のとおり

 ActiveSheet.Shapes.AddShape(msoShapeOval, 165.75, 820.5, 22.5, 16.5).Select
 Selection.ShapeRange.Fill.Visible = msoFalse　※

 すると、エクセル２０１０ではエラーでないで動くのですが
 エクセル２０１３では※のところでエラーナンバー４３８の
 ”オブジェクトでサポートされていないプロパティまたはメソッドです。”
 がでます。

 なぜかわからず困っています。

 しかも※のところでブレイクポイントを置いて、ステップインだと動くのです。
 何をして良いかご教授お願いします。 しんぼう

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 シートがアクティブで無い状態だとエラーになるという情報がありました。
 シートを選択したり、オブジェクト変数に入れたりいろいろな回避方法があると思いますが、
 ActiveSheet.Shapes.AddShape(msoShapeOval, 165.75, 820.5, 22.5, 16.5).Fill.Visible = msoFalse
 ではダメでしょうか。
（Mook） 2014/07/10(木) 20:46

 回答ありがとうございます

 Mook様のとおりで無事動きました。
 １行にまとめるという考え方全くなかったです。（笑）

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

（しんぼう） 2014/07/11(金) 11:35

コメント返信：

[ 一覧(最新更新順) ]

[[20140710165833]] 『エラー438が出る』（しんぼう） ページの最後に飛ぶ

[[20140710165833]]　『エラー438が出る』（しんぼう）　ページの最後に飛ぶ