2009年06月02日

Excel VBA 図形をまとめて削除

複数あるグラフのうち、10個だけ残してほかを削除しようと思って
cnt = Activesheet.Chartobjects.Count
while cnt > 10
Activesheet.Chartobjects(cnt)
cnt = cnt - 1
wend

ってやってたのだけど、いつもcnt は0.
おかしいなーと思って考えてて、 Excelシートに張ってある表が
グラフ作成で作ったものではなく、
他のファイル上で作成したグラフをcopy & paste して
図形として貼り付けたものだったことを思い出す。

cnt = ActiveSheet.Shapes.Count

While cnt > 10
ActiveSheet.Shapes(cnt).Delete
cnt = cnt - 1
Wend


posted by maplewine at 15:18| Comment(0) | TrackBack(0) | VB | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。

この記事へのトラックバック
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。