エクセルのブックをコピーして容量増大？

質問

エクセルの一つのブックに図形で引いた線が10本あるとして
それをコピーすると、線が倍になり、更に倍‥とブックの容量が
最終的に10倍ほどになってしまい、それを開く時にかなりの
時間がかかってしまいます。線は実際に隠れて見えないのですが
削除を繰り返してもキリがありません。

どうしたら、元のままコピー出来るのでしょうか？

回答No.3

Wendy02

こんばんは。

削除するのは、たいした問題ではないのですが、元を残さなくてはならないというところがむつかしいような気がします。つまり、レイヤーになっている状態をひとつにしたいことですよね。

この場合、スクリーンキャプチャソフトの、矩形で、画像の部分を取り出すぐらいですね。でも、30枚もシートがあるというと、それも簡単にはいきません。オートシェイプの中が空いている[塗りつぶしなし]ならば、何とかなるような気がします。すべてを消しては話しになりませんしね。

解決策：

----　　　　-　　　　-　　---------　←　シェイプを削除すればよい
----　　　　-　　　　-　　---------　←　　　''
----　　　　-　　　　-　　---------　　　シェイプ(残す）
　　　====　=====　===　　　　画像1,2,3

もし、そういう状態なら、最後の1つのオートシェイプを残すように
以下のマクロで可能ですが、どのようになっているのでしょうね。

'標準モジュールがベター
'全シートのひとつの最後のオートシェイプを残し、後はすべて削除するマクロ
'-----------------------------------
Sub DeleteShapes()
　Dim sh As Object
　Dim i As Long
　Dim j As Long
　Dim cnt As Long
　For Each sh In Worksheets
　　For i = 1 To sh.Shapes.Count
　　　If sh.Shapes(i).Type <> msoPicture Then
　　　'オートシェイプのみを数える
　　　　cnt = cnt + 1
　　　End If
　　Next i
　For j = sh.Shapes.Count To 1 Step -1
　　If sh.Shapes(j).Type <> msoPicture And cnt > 1 Then
　　　sh.Shapes(j).Delete
　　　cnt = cnt - 1
　　End If
　Next j
　cnt = 0
Next sh
End Sub
----------------------------------

お礼

マクロとなると、私のスキルではかなり厳しいです(^^;
現状の作成方法を見直したいと思いますし、同時に容量の増える原因をもう少し探って、ムダな部分を見直したいと思います。ありがとうございました。

回答No.2

ASIMOV

図形のツールバーにある「オブジェクトの選択」（左上を向いた矢印）で
「印の欄」全体を囲うようにして選択し、削除ではどうでしょか？

お礼

ひたすら削除はしているのですが‥
現状の「コピーして毎月分を作成」の要領を見直してみます。
ありがとうございました。

回答No.1

ASIMOV

質問の意味が良く解からないです

＞線は実際に隠れて見えないのですが

なぜ見えないのか

＞削除を繰り返してもキリがありません

削除しても減らないって事でしょうか？

＞どうしたら、元のままコピー出来るのでしょうか

「元」とは？

補足

何が原因で容量が大きくなっているかと調べたら
　図形の線で作成している、担当者印の欄でした。
　これを削除すると、またその下に同じ欄があり、
　重ねていくつも貼り付けた状態になっています。

　削除すれば減るのですが、1ブックに30シートあり
　全て削除するのが大変手間になっています。

　元のままとは、原紙として作ったシートの状態で
　もう一つコピー出来ないかという事です。
　現状ではブックをコピーするたびに、担当者印の欄が
　重ね貼り状態になります。

　職場に詳しい者もおらず、私も本などで調べてはいますが
　中々解決に至らず、お時間のある時にでも回答頂けたら
　宜しくお願いします。