[[20070127110311]]　『グラフは残してオートシェイプを消したい』（x11euser）　ページの最後に飛ぶ

『グラフは残してオートシェイプを消したい』（x11euser）
１つのワークシートにグラフとオートシェイプが混在しています。
オートシェイプだけ全て消そうとして、以下のマクロを実行したところ
グラフも一緒に消えてしまいました。
　グラフだけ残してオートシェイプをきれいに消すにはどうすれば
良いのでしょうか。よろしくお願いします。
ＯＳはWindowsXP、エクセルはExcel2000、です。

Sub ALLShapesDelete()

    On Error GoTo JOBEXIT
    Do While 1 = 1
        ActiveSheet.Shapes(1).Select
        Selection.Delete
    Loop
JOBEXIT:
End Sub

 これでいけますか。
Sub ALLShapesDelete1()
On Error Resume Next
For Each myShape In ActiveSheet.Shapes
    myShapeType = myShape.DrawingObject.Chart.ChartType
    If IsEmpty(myShapeType) Then
        myShape.Delete
    End If
    myShapeType = Noting
Next myShape
End Sub

 （川野鮎太郎）

早速やってみました。
グラフ以外のシェイプがきれいに消えました。
本当にありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20070127110311]] 『グラフは残してオートシェイプを消したい』（x11euser） ページの最後に飛ぶ

[[20070127110311]]　『グラフは残してオートシェイプを消したい』（x11euser）　ページの最後に飛ぶ