Active Window- Caption Property

     

  • It enables the user to rename the active window
  • Private Sub CommandButton1_Click()
    ActiveWindow.Caption = "Activewindow_Caption_Property"
    MsgBox "Activewindow Workbook named as ACTIVEWINDOW CAPTION PROPERTY"
    End Sub

     

     

    Active Window- GridLineColor Property

     

    Private Sub CommandButton1_Click()
    ActiveWindow.GridlineColor = RGB(0, 0, 224)
    End Sub

     

     

    'Remove GridlineColor

    Private Sub CommandButton2_Click()
    ActiveWindow.GridlineColorIndex = xlColorIndexAutomatic
    End Sub

     

     

     

    Active Window- Split Property

     

    Private Sub CommandButton1_Click()
    ActiveWindow.Split = True
    End Sub
    'Remove split
    Private Sub CommandButton2_Click()
    ActiveWindow.Split = False
    End Sub

     

     

    Active Window- Freeze Panes

     

    Private Sub CommandButton1_Click()
    ActiveWindow.FreezePanes = True
    End Sub
    Private Sub CommandButton2_Click()
    ActiveWindow.FreezePanes = False
    End Sub

     

     

     

     

    Active Window- WindowState Property

     

  • It denotes about Window status: Max,Min,Normal
  •  

    Private Sub CommandButton1_Click() ActiveWindow.WindowState = xlMinimized ActiveWindow.WindowState = xlMaximized ActiveWindow.WindowState = xlNormal End Sub