<< アイファイジャパン Eye-Fi Share SD型ワイヤレスメモリカード 2GB (JPEGのみ転送） EYE-FI-2GB-J | TOP | あの日の忌野清志郎 >>

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 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

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


※画像の中の文字を半角で入力してください。
この記事へのトラックバック