ActiveX FlexGrid8控件的换行刷新很卡

ActiveX FlexGrid8控件的换行处理很卡，2000多行刷新需要2-3秒钟，请问各位有没有什么方法可以优化的

With grdWork
        .Redraw = flexRDNone
        Select Case .ColKey(Col)
            Case "MC",  "Note"            
                If gWorkSheetAutoWordWarp Then
                    .AutoSizeMode = flexAutoSizeRowHeight
                    .AutoSize Col, Col, False
                End If
        End Select
        .Redraw = flexRDBuffered
    End With

目前没有什么优化办法，自动行高设置回遍历每行的内容，所以比较消耗时间