主题：excel行高与字体大小的对应关系

For i As Integer = 0 To sheet.Rows.count - 1

    Dim fnt As New Font("黑体",12,FontStyle.Underline)

    Dim Style As XLS.Style = Book.NewStyle() '定义新样式

    Style.Font = fnt

    For c As Integer = 0 To sheet.Cols.count - 1

        sheet(i,c).Style=Style

        output.Show(sheet(i,c).Style.Font.Size)

    Next

Next