|
▼ハマゾウ さん:
>▼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ではないのにかかわらず、レーダーチャートも
消えてしまうんですね。
|
|