次のエージェントは、文字揃えを切り替えます。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim vc As NotesViewColumn
Set db = session.CurrentDatabase
Set view = db.GetView("Categorized")
Set vc = view.Columns(1)
If vc.HeaderAlignment = VC_ALIGN_LEFT Then
vc.HeaderAlignment = VC_ALIGN_RIGHT
Elseif vc.HeaderAlignment = VC_ALIGN_RIGHT Then
vc.HeaderAlignment = VC_ALIGN_CENTER
Else
vc.HeaderAlignment = VC_ALIGN_LEFT
End If
End Sub