|
▼たけ さん:
>> 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 プロパティを
呼び出す、ということをしていたわけです。
ももさん、フォローありがとうございます。(^^
|
|