Sub 縮小して全体を表示するを設定するを解除()

    Range("A1").ShrinkToFit = False

End Sub