要按大纲级别对Excel行进行着色，可以使用VBA代码来实现。以下是一个示例代码，它会根据大纲级别对选定的行进行着色。

Sub ColorRowsByOutlineLevel()
    Dim rng As Range
    Dim cell As Range
    
    ' 获取选定的行范围
    Set rng = Selection.Rows
    
    ' 遍历每一行
    For Each cell In rng
        ' 根据大纲级别进行着色
        Select Case cell.OutlineLevel
            Case 1 ' 第一级别
                cell.Interior.Color = RGB(255, 0, 0) ' 红色
            Case 2 ' 第二级别
                cell.Interior.Color = RGB(0, 255, 0) ' 绿色
            Case 3 ' 第三级别
                cell.Interior.Color = RGB(0, 0, 255) ' 蓝色
            Case Else ' 其他级别
                cell.Interior.ColorIndex = xlColorIndexNone ' 清除颜色
        End Select
    Next cell
End Sub

要使用此代码，请按照以下步骤操作：

1. 打开Excel，并选择要着色的行。
2. 按下Alt + F11打开VBA编辑器。
3. 在VBA编辑器中，插入一个新的模块。
4. 将上述代码复制粘贴到新模块中。
5. 关闭VBA编辑器。
6. 在Excel中，按下Alt + F8打开宏对话框。
7. 选择ColorRowsByOutlineLevel宏，并点击"运行"按钮。

此代码将根据大纲级别对选定的行进行着色。第一级别将被着为红色，第二级别为绿色，第三级别为蓝色，其他级别将不会被着色。