EXCEL2000 VBA 文字の配置、縦配置を中央揃え

 EXCEL2000 VBA  文字の配置、縦配置を中央揃え　

ツールバーには、横方向の中央揃えのボタンは有るが、縦方向のは無いので？作った。

マクロで記録し利用する。

マクロの記録では下記のコードになる。

 Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2012/10/17  ユーザー名 :
'

'
    Range("B1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With

 End Sub

これに手を加えて下記のようにする。
不要なところは消してもいいが、一応のこしてコメントにする。

Sub 縦配置中央()
'
'
    With Selection
'        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
'        .WrapText = False
'        .Orientation = 0
'        .AddIndent = False
'        .ShrinkToFit = False
'        .MergeCells = False
    End With
End Sub

このマクロをツールバーに登録する。

 

 

 

 

タグ：Excel2000 VBA