Macの２つのPC間でデータをやり取りすると図が潰れるバグについて

Question

PC①MacBookPro Retina .2012   PC②Macbook Pro 2012

エクセルは同じOffice365のものです。

PC①で作成し、PC②で開くと、上記の様に潰れて表示されます。

元は正円で、画像も、もう少し縦長でした。

グラフは崩れていません。こちらを解消する方法をご教授行っただけませんでしょうか？

いくつかフォーラムにあるものを試しましたが、解決に至っておりません。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

・図形のグループ化をすれば直るという記事を試した→解消できず。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

・図のプロパティで「縦横比を固定する」「セルに合わせて移動やサイズ変更をしない」設定→解消できず。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

・画面サイズに関してサイズ変更をしてみてはどうか？別の質問へのという返答

環境を変えてまで対応させることは望みません。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

以上、かなりの量のファイルを作ってから気づきました。

このままでは全て作り直しなどになってしまいます。どなたかお助けください。

**モデレーター注**

この質問は [Office | Excel | その他/不明 | Office 365 for business] のカテゴリに投稿されましたが、内容から判断しこちらのカテゴリに移動いたしました。適切なカテゴリに投稿すると、返信や回答が得られやすくなり、同じ質問を持つ他のユーザーの参考にもなります。

追記（2017.01.29）

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

複数の方にアドバイスをいただきありがとうございます。

残念ながらまだ解決に至っておりません。

追加でどういう用途で使いたいのか、自分たちのエクセルに関しての理解度を追記します

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

【経緯】

普段はデザインを仕事にしている小さな会社です。

会社用のマニュアルを作ろうということで、普段使うイラストレータなどではなく、

・誰でも編集しやすい

・表が簡単に作れる

上記の理由でエクセルを使おうということになりました。また、マニュアルは、営業やお客様への提案マニュアルなど複数ページにも渡って作るため、一部別ソフトで作るのはNG。エクセルのみで作るということにいたしました。

今から別のソフトでつくり直すというのも一つの手ではあるのですが、既に数十時間かけてファイルを制作しておりできればエクセルのこの不具合を直せる方法があればと考えています。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

【私どものエクセルやマイクロソフト社の製品に関してのスキル】

普段全く使用することがないので、基本的な図を書く、文字をうつなどの操作ができる程度です。

エクセルやプログラムに関しての知識は無いに等しいです。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

Answer 1

Makapuさま

ありがとうございます。

本日業務が多くすぐに試すことができませんが、後ほど試したいと思います。

取り急ぎ御礼申し上げます。

Answer 2

Makapuさん

フォローありがとうございます。

なるほど画像は画像で記録しておけばいいのですね。

大変勉強になりました。

私も色々試行錯誤して復元のマクロを下記のようにしたら理屈も分からないまま何故かうまくいきました。

松尾雅由さんにはMakapuさんのマクロの方が理に適っているのでおすすめします。

（環境が違えば私のマクロがうまく動く保証はありません）

Sub 図形の位置とサイズを復元改訂版()

    Dim n As Long

    Dim i As Long

    n = ActiveSheet.Shapes.Count

    For i = 1 To n

        ActiveSheet.Shapes(i).Select

        With Selection

            .ShapeRange.LockAspectRatio = msoFalse

            .Top = Cells(i, 25)

            .Left = Cells(i, 26)

            .Height = Cells(i, 27)

            .Width = Cells(i, 28)

        End With

    Next

    Range("A1").Select

End Sub

Answer 3

松尾雅由さん、マクロが実行出来たとの事で、安心致しました。

図形と画像の両方の位置とサイズを記録して復元するマクロになります。

（※TETUOさんのコードをコピーして少し変更しただけのものです。）

1. Mac①側でファイルを開き、 ツール > マクロ > マクロ > 「図形と画像の位置とサイズを記録」を実行。
2. Mac②側で同じファイルを開き、 ツール > マクロ > マクロ > 「図形と画像の位置とサイズを復元」を選択して「実行」。

Sub 図形と画像の位置とサイズを記録()

    'シート１枚の時

    Dim n As Long

    Dim i As Long

    '図形

    n = ActiveSheet.Shapes.Count

    For i = 1 To n

        With ActiveSheet.Shapes(i)

            .Placement = xlMove

            Cells(i, 25) = .Top

            Cells(i, 26) = .Left

            Cells(i, 27) = .Height

            Cells(i, 28) = .Width

        End With

    Next

    '画像

    n = ActiveSheet.Pictures.Count

    For i = 1 To n

        With ActiveSheet.Pictures(i)

            .Placement = xlMove

            Cells(i, 29) = .Top

            Cells(i, 30) = .Left

            Cells(i, 31) = .Height

            Cells(i, 32) = .Width

        End With

    Next

End Sub

Sub 図形と画像の位置とサイズを復元()

    Dim n As Long

    Dim i As Long

    '図形

    n = ActiveSheet.Shapes.Count

    For i = 1 To n

        With ActiveSheet.Shapes(i)

            .Top = Cells(i, 25)

            .Left = Cells(i, 26)

            .Height = Cells(i, 27)

            .Width = Cells(i, 28)

        End With

    Next

    '画像

    n = ActiveSheet.Pictures.Count

    For i = 1 To n

        With ActiveSheet.Pictures(i)

            .Top = Cells(i, 29)

            .Left = Cells(i, 30)

            .Height = Cells(i, 31)

            .Width = Cells(i, 32)

        End With

    Next

End Sub

Answer 4

Makapuさま　TESUOさま

特にお二人には多大なサポートをいただき感謝いたします。

マクロを実行することができましたので、結果のご報告をさせていただきたいと思います。

Excelの図形ツールを用いて円を書いていたもの→解決に至りました。

画像を貼付けていた部分→ご覧のように潰れたまま→解決せず。

という結果になりました。

半分は解決したという形になりました。

Answer 5

松尾雅由さん、お試しいただきましてありがとうございます。

フォントを同じにしても直らなかったのですね。そうですか、、残念です。

また、説明不足ですみませんでした。

TETUOさんのコードは

手順1. Mac①側でシートの25列目(Y列)～28列目(AB列)に図形の位置とサイズを書き込む。

手順2. Mac②側でシートの25列目(Y列)～28列目(AB列)から図形の位置とサイズを読み込こんでサイズを変更する。

というものです。

ですので、現在はMac①で 手順1 が実行されていない為、Mac②側の 手順2 で読み込むサイズの数値が無いというエラーになっていると考えられます。 

マクロを実行する準備は出来ていると思いますので、

<手順1>

Mac①側でファイルを開き、 ツール > マクロ > マクロ > 「図形の位置とサイズを記録」を選択して「実行」をクリックします。

シートの Y列～AB列に数値が入力されているのを確認したら、ファイルを上書き保存して、閉じます。

<手順2>

Mac②側で同じファイルを開き、 ツール > マクロ > マクロ > 「図形の位置とサイズを復元」を選択して「実行」をクリックします。

少し心配なのは、図形の大きさは同じになったとして、背景のセルとずれが生じないと良いのですが。

（もしかするとセルの行高と列幅が違っているのかも。。）