| |
▼たけ さん：
>> With Sheets("反映シート").Shapes("pp001").ShapeRange
>
>この部分がエラーとなってしまいます．
>「このオブジェクトはこのプロパティまたはメゾットをサポートしておりません」
>のエラーが返ってきます．
すみまっせん〜
すでに ももさんからフォローありますとおり、 ShapeRange は不要です。
やっぱり 試してなくてレスするとだめですね。
> Shapes("pp001").Select
> Selection.ShapeRange.Fill ...
と、セレクトしたときは ShapeRangeが要るのに、
Selectしないと なぜ ShapeRangeが不要なのかは、
Shapeを Select したとき
Selection は Shapeでなく Rectangle とか Oval とか Picture とかの
Shapeとは別のDrawingObject に変わっているからです。
で、Selectしたときは
それらのオブジェクトの ShapeRangeプロパティを使って 一度
Shapeオブジェクトへの参照を得て Shapeのなかにある Fill プロパティを
呼び出す、ということをしていたわけです。
ももさん、フォローありがとうございます。(^^
|
|
kanabun
- 09/5/19(火) 11:12 -
