How To Make Shortcut Key MS Excel Font Increase and Decrease or Text Ali...

How To Make Shortcut Key MS Excel Font Increase and Decrease or Text Ali...








Sub FontIn()

 Application.Selection.Font.Size = Application.Selection.Font.Size + 2

End Sub

Sub FontOut()

 Application.Selection.Font.Size = Application.Selection.Font.Size - 2

End Sub

Sub TextAligne()

If Application.Selection.VerticalAlignment = xlCenter Then

If Application.Selection.HorizontalAlignment = xlLeft Then

Application.Selection.HorizontalAlignment = xlCenter

Else

If Application.Selection.HorizontalAlignment = xlCenter Then

Application.Selection.HorizontalAlignment = xlRight

Else

If Application.Selection.HorizontalAlignment = xlRight Then

Application.Selection.HorizontalAlignment = xlLeft

End If

End If

End If

Else

Application.Selection.VerticalAlignment = xlCenter

Application.Selection.HorizontalAlignment = xlLeft

End If

End Sub



How To Enable Macro