Excel2010で画像が大量に貼付されたファイルを保存できないのは解消できないのですか？

Question

件名のとおり、画像が大量に貼り付けたファイルを保存できません。最初は容量の問題かと思いましたが違うようです。稀に保存できたりします。ネットで調べたときにあった、画像の縦横サイズが”０”のものもありません。保存しようとすると「・・・保存中にエラーが検出されました。いくつかの機能を削除することにより、ファイルを保存できる場合があります。新しいファイルで修復を実行するには・・」のメッセージがでます。

問題を解消する修正パッチ等はないのでしょうか？

EXCEL2013、2016ではこのような事象は解消されてますか？

Answer 1

はい、コメント「’」は外していませんので、数を数えただけなのですが、それ以降保存できています。

不思議です。

Answer 2

佐藤康午さん、ご返信ありがとうございます。

上記コードのままですと、ただ数を数えただけなので変化はないはずですが、

もしコメント「'」を外して、画像の縦横サイズが”０”の削除を実行したのであれば、

その文書どおりの回避方法が実行された事になると思いますが。。。

Answer 3

上記のコードを実行した後、EXCELを終了、再度ファイルを読み込み、２回上書き保存、１回名前を変更して保存が連続して成功しました。

一体何が原因なのかよくわかりません。

とりあえず、報告まで。

Answer 4

返信ありがとうございます。

上記のコードを実行してみましたが、画像の縦横サイズが”０”のものはありませんでした。

また、10回に一度くらいは正常に保存されるときがあります。

ファイル容量は　２０８MB　です。

貼付画像は1000以上あります。

プリンタはネットワークプリンタ使用しています。最新ドライバ探してみます。

Answer 5

こんにちは。

・Excel 2010 でファイル保存時に異常終了する

https://support.microsoft.com/ja-jp/kb/2660122

こちらの回避策「VBA コードを使用して高さと幅が 0 に設定された図形の数を確認、もしくは削除を行う場合のサンプルコード」を実行されたのでしょうか？

※形が崩れているので整形しました。

Sub ShapeCheck()

    Dim oSheet As Object

    Dim oShape As Object

    Dim iCount As Long

    iCount = 0

    For Each oSheet In ActiveWorkbook.Sheets

          For Each oShape In oSheet.Shapes

              If oShape.Width = 0 And oShape.Height = 0 Then

                iCount = iCount + 1

                'oShape.Delete '図形の削除を行う場合はこの行のコメントを削除して実行します。

              End If

          Next oShape

    Next oSheet

    Debug.Print iCount

End Sub

※イミディエイトウィンドウは[表示] ＞ [イミディエイトウィンドウ]で出せます。

上記のコードを実行した場合に画像の縦横サイズが”０”のものがない場合ですが、

同じエラーメッセージでプリンタドライバを最新にしたら直ったという情報がありました。

Excel ブックを保存すると、「＜ファイル名＞の保存中にエラーが検出されました…」と表示される

念の為、プリンタのメーカーのホームページから最新のプリンタドライバをダウンロードして

再インストールしてみてはいかがでしょう。

解消されない場合ですが、

・新規にBookを作成して画像を貼り付けた場合にも発生しますか？

・発生するBookのサイズは何KB(MB)ですか？

（ファイルを右クリックしてプロパティの全般タブにサイズの記載があります。）