| |
▼ハマゾウ さん：
>▼TENさん、ちゃっぴ さん：
>>Shapes Collectionに対して、Count Method使えばいいだけでは？
>>
>>というか、Objectを扱うなら、For Each 〜 Next Statementという
>>便利なものがあるので、それを使用すれば終了回数など取得する必要
>>ありませんが･･･
>
>以下はFor Each 〜 Next Statementを使った例です。
>
>
>Sub test()
> Dim Sh As Object
> Dim i As Long
>
> i = 0
> For Each Sh In Sheets("sheet1").Shapes
> Sh.Delete
> i = i + 1
> Next
> MsgBox i & "個のShapeを削除"
>End Sub
上記のプログラムを試してみましたが、すべてのオブジェクトが
削除されてしまいました。
グラフだけ残して、オートシェイプだけ削除等の指定はできないのでしょうか？
しかし.Shapesで別にChartではないのにかかわらず、レーダーチャートも
消えてしまうんですね。
|
|
TEN
- 04/12/23(木) 15:30 -
