エクセルVBAでオートシェイプの属性を取得する方法を教えてください。

お世話になります。VBAについてほとんど理解していないので、ピントはずれな質問かも知れませんがよろしくお願いします。

エクセルのシートに四角形のオートシェイプが１０個ほどあります。このなかの、１つを選択して色やパターンなどの属性を取得するのに次のように書いてみました。

Sub test()
MsgBox Selection.ShapeRange.Fill.ForeColor.SchemeColor
MsgBox Selection.ShapeRange.Fill.Patterned
End Sub

１行目の色についてはメッセージボックスに表示されるのですが、パターンが表示されません。

パターンの属性を取得する方法を教えてください。
エクセルのバージョンは：EXCEL2002です。

よろしくお願いします。

No.1 ベストアンサー 回答者： mitarashi 回答日時： 2009/07/25 19:50

Selection.ShapeRange.Fill.Patternedは、メソッドなので、この様な使い方で値を取得する事はできません。

自動記録してみると、
Selection.ShapeRange.Fill.Patterned msoPatternShingle
等となり、= が無いことが分かります。
これは、Selection.ShapeRange.Fill.Patterned(msoPatternShingle)
とも書けます。
パターンの属性は、
MsgBox Selection.ShapeRange.Fill.Pattern
で値が取得できます。
いじってみると、
Selection.ShapeRange.Fill.Pattern = msoPattern10Percent
は、「値の取得のみが可能なプロパティに値を設定することはできません」というエラーになりました。
値の設定はメソッドPatternedで行い、取得はプロパティPatternで行う様になっていることが分かります。

この回答へのお礼

mitarashiさん　早速解答していただきありがとうございました。
VBAはまだまだ初心者なのでこれから勉強して行きたいと思います。

無事にパターンの値が取得できました。
でも、値が"msoPatternShingle"ではなく数字なのですね。ちょっと驚きました。

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

お礼日時：2009/07/25 20:27

No.2 回答者： kybo 回答日時： 2009/07/25 19:52

MsgBox Selection.ShapeRange.Fill.Pattern

としてみてください。

この回答へのお礼

早速、解答していただき、ありがとうございました。
今後ともよろしくお願いします。

お礼日時：2009/07/25 20:29