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

Anonymous
2017-01-27T01:50:15+00:00

PC①MacBookPro Retina .2012   PC②Macbook Pro 2012

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

**モデレーター注**

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

追記（2017.01.29）

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

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

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

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

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

【経緯】

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

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

・誰でも編集しやすい

・表が簡単に作れる

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

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

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

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

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

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

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

Microsoft 365 と Office | Excel | 家庭向け | MacOS

ロックされた質問。 この質問は、Microsoft サポート コミュニティから移行されました。 役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

32 件の回答

並べ替え方法: 新しい順
最も役に立つ 新しい順 古い順
  1. Anonymous
    2017-02-01T16:15:05+00:00

    TESUOさま　Makapuさま

    グラフを外して試したところ、図形・写真の比率ともに正常に表示されました。ありがとうございます。ただ別の問題が同時に発生しました。図の縦横は正常になったのですが、図形が全体的に左にずれる現象が見られました。

    ![](https://learn-attachment.microsoft.com/api/attachments/32a85821-193f-46a5-8dd1-c7988965d9d4?platform=QnA)
    写真１    写真２気づいたことを書きます。

    ・文字はセルの中で位置は変わっていない様です。（写真１）

    ・全てのシートではないのですが、上の左余白が大きくなっていました。（写真２）

    ・ヘッダー余白も広くなっていました。（写真２）

    この回答は役に立ちましたか?

    0 件のコメント
  2. Anonymous
    2017-02-01T16:02:56+00:00

    TESUOさま　Makapuさま

    原因はグラフでした。

    グラフを削除したところ、記憶まではできました。

    この回答は役に立ちましたか?

    0 件のコメント
  3. Anonymous
    2017-02-01T15:58:35+00:00

    TESUOさま　Makapuさま

    ありがとうございます。早速試してみたのですが、記憶する段階(Mac①)でマクロを実行したところ

    実行時エラー '438':

    オブジェクトはこのプロパティまたはメソッドをサポートしていません。

    とエラーがでました。

    申し訳ありません。

    この回答は役に立ちましたか?

    0 件のコメント
  4. Makapu 92,550 評価のポイント ボランティア モデレーター
    2017-01-31T20:53:15+00:00

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

    図形が左隅に小さく固まる場合について、確認してみました。

    「図形と画像の位置とサイズを復元」を実行する為には、私から提示させて頂いた２つのマクロの始めの方、「図形と画像の位置とサイズを記録」が実行出来ていないと、読み込む数値が0になって、位置0、サイズ0となる為にそうなる事が分かりました。

    Mac①で「図形と画像の位置とサイズを記録」を実行すると、AC列～AF列に位置とサイズが記録されます。

    Mac②で「図形と画像の位置とサイズを復元」を実行する前に、AC列～AF列に数値が入っているかご確認の上、マクロを実行して頂く事で、上手く動作すると思います。

    TETUOさんの「図形の位置とサイズを復元改訂版」も、Office2016 for Macでも 問題なく動きました。

    TETUOさんの改訂版のコードですと、Y列～AB列のみに全ての情報が記録されますので、TETUOさんのコードの方がスマートでお勧めだと思いますよ。（私の方は情報がダブって記録されてます。）

    この回答は役に立ちましたか?

    0 件のコメント
  5. Anonymous
    2017-01-31T20:52:38+00:00

    私も試してみました。

    図形→画像の場合は問題ないが画像→図形と貼り付けている場合はうまくいかないみたいですね。

    私には原因はよく分かりません。

    私も自分のマクロを複数シートでも使えるようにしてみましたのでだめもとでお試しになったら如何でしょうか？

    （私の限られた環境ではうまくいったのですが、、、、、）

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

        '複数シート可

        Dim i As Long

        Dim j As Long

        Dim sn As Long

        sn = Worksheets.Count

        For j = 1 To sn

            Worksheets(j).Select

            For i = 1 To Worksheets(j).Shapes.Count

                ActiveSheet.Shapes(i).Select

                With Selection

                    .ShapeRange.LockAspectRatio = msoFalse

                    .Placement = xlMove

                    Cells(i, 25) = .Top

                    Cells(i, 26) = .Left

                    Cells(i, 27) = .Height

                    Cells(i, 28) = .Width

                End With

            Next i

            Range("A1").Select

        Next j

        Sheets(1).Select

        Range("A1").Select

    End Sub

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

        '複数シート可

        Dim i As Long

        Dim j As Long

        For j = 1 To Worksheets.Count

            Worksheets(j).Select

            For i = 1 To Worksheets(j).Shapes.Count

                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 i

            Range("A1").Select

        Next j

        Sheets(1).Select

        Range("A1").Select

    End Sub

    この回答は役に立ちましたか?

    0 件のコメント