Menuへ
枠線・行列番号の消去/表示

シェイプへのマクロの割り当ては、tshape.OnAction = "マクロ名"　でできます。
マクロのプロシージャを標準モジュールに作成します。
オートシェイプの名前は、Application.Caller　で取得できます。
今回はクリックされるとA1セルに名前が表示されます。



枠線・行列番号を消去するコード
'消去
Private Sub CommandButton1_Click()
    Sheets("Sheet1").Activate
    '枠線
    ActiveWindow.DisplayGridlines = False
    '行列番号
    ActiveWindow.DisplayHeadings = False
End Sub

枠線・行列番号の消去画面

枠線・行列番号を表示させるコード
'表示
Private Sub CommandButton2_Click()
    Sheets("Sheet1").Activate
    '枠線
    ActiveWindow.DisplayGridlines = True
    '行列番号
    ActiveWindow.DisplayHeadings = True
End Sub

枠線・行列番号の表示画面

ブックのオープン時、枠線・行列番号を消すコード
ブックを開く時に消去したい時がよくあります。
その場合、Workbook_Openイベントに入力します。

Private Sub Workbook_Open()
    Sheets("Sheet1").Activate
    '枠線
    ActiveWindow.DisplayGridlines = False
    '行列番号
    ActiveWindow.DisplayHeadings = False
End Sub


Topへ