[[20150825092801]]　『「縮小して全体を表示」のバグ？』（ふみ）　ページの最後に飛ぶ

『「縮小して全体を表示」のバグ？』（ふみ）

コードの中に
　
Cells.Select

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ShrinkToFit = True      
    End With

と書いて縮小させているのですが、（それとセンター配置にしてます）
コードを走らせてみると、
色んなところに縮小する前の文字が左側にセルからはみ出して残っています。
（そのセルを選択しても空白なのですが消えません）

解決法はないでしょうか？
よろしくお願いします。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 あいにく再現できないためこれで防げるかはわからないが。

 コードの前後を
 Application.ScreenUpdating = False
 コード
 Application.ScreenUpdating = True
 と囲んではどうだろうか？

 Application.ScreenUpdating = False
 は画面の更新の停止、

 Application.ScreenUpdating = True
 は画面の更新の再開。

（ねむねむ） 2015/08/25(火) 09:52

ねむねむさん、ありがとう御座います。

実はメインのコードの最初と最後に、すでに書いています。
試しにサブのコードの方にも書いてみましたが、結果は同じでした。

必ずでは無いのですが、左側のセルが空白の時に残っており、
左側にはみ出しています。
右側は一切ありませんし、連続しているセルの場合はありません。

よろしくお願いします。

（ふみ） 2015/08/25(火) 10:07

こんにちは

そのはみ出しているセルの文字数は何文字ですか？

そのセルだけ左詰め表示、右詰め表示にするとどうなりますか？

（ウッシ） 2015/08/25(火) 10:20

ウッシさん、ありがとう御座います。
はみ出しているセルの文字数は、全角で９文字、１０文字、１１文字です。
コードを走らせた後、はみ出しているセルは中央揃えの表示になっていますが、
左に揃えるボタンを押すと、はみ出しが消えました。
右に揃えるボタンを押すと、はみ出す文字数が増えました。

はみ出していないセルに対して左や右に揃えるボタンを押しても
変化はありませんでした。

よろしくお願い致します。

（ふみ） 2015/08/25(火) 10:58

 表示モード（標準、ページレイアウト、改ページプレビュー）はなんだろうか？
 また、ページの表示倍率を100％以外にしていないだろうか？
（ねむねむ） 2015/08/25(火) 11:10

ねむねむさん、ありがとう御座います。
表示モードは標準で、表示倍率は１００％です。
変更しているのは、印刷のページ設定を横６×縦３にしているのと、
印刷タイトルを行と列の両方、設定しています。
また、ウインドウ枠の固定も使用しています。

（ふみ） 2015/08/25(火) 11:42

こんにちは

ウインドウ枠の固定との相性が悪いようですね。

左詰め表示にするか、左側の空白のセルにスペースを入れるとかで対処するしか
無さそうです。

（ウッシ） 2015/08/25(火) 11:48

ウッシさん、ありがとう御座います。
確かに、ウインドウ枠の固定をやめたら、文字のはみ出し方や、
はみ出すセルの位置が変わりました。

また、xlCenterをxlGeneralに変えたら、はみ出し残りが無くなりました。

これでいくしか無さそうですね。
ありがとう御座いました。

（ふみ） 2015/08/25(火) 12:05

コメント返信：