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

我设计了一个利用Excel报表打印标签的项目，在实际使用过程中发现一个奇怪的现象：明明我在Excel中设置的行高是9，可是用output.show方法在foxtable中显示的行高却是12，excel与foxtable显示Excel行高的对应关系如下：

          excel          foxtable

          7               9

          8               10

          9               12

         10              13

         11              14

 

列宽就更离谱了，明明Excel设置的是10，foxtable却显示为17;

但是，字号又是一致的，Excel设置为8，foxtable也显示为8 ;

 

有没有哪位狐友精通这方面的知识，指教一二!

 

以书宋为列，能不能给出行高所能容纳的最大字体与行高的函数关系？ 

 

 楼主你直接说你遇到什么问题吧？是生成报表的时候和原先的不一样？上个例子。

我的问题是已经根据内容的行数动态调整了报表的行高，从而使得报表始终保持恒定的高度，我想进一步根据已经调整好的行高来动态调整字体的大小，于是需要找到行高与所能容纳的最大(或最合适）字体大小之间的表达式关系，比如 "字体大小 = 行高 - 2.5”等等。另外，我确实想知道excel中设置的行高和列宽为什么和foxtable中用output.show方法获得的值不一样。

因为我的项目太大，又用的外部表，上列子不太方便，而这个问题似乎有没有例子都无所谓，所以劳驾了！

Dim fl As String = ProjectPath & "Reports\标签.XLS"
Dim Book As New XLS.Book(fl)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
'output.Show("内容" & sheet(3,0).Value)
'output.Show("行高" & sheet.rows(3).Height)
'output.Show("列宽" & sheet.Cols(1).Width)
'output.Show("字号" & sheet(3,1).Style.Font.Size)

For i As Integer = 0 To sheet.Rows.count - 1
    Dim fnt As New Font("黑体",12,FontStyle.Underline)
    sheet(i,0).Style.Font = fnt
    output.Show(sheet(i,0).Style.Font.Size)
Next

 

上面这段代码，注释掉的部分可以正常运行并显示正确的结果，红字部分会报错：未将对象引用设置到对象的实例

 

不知原因何在？有没有办法实现我想要的功能？

上个例子看看.

显示不一样问题我查了下，应该是foxtable以像素为单位，但excel以磅（或点）为行高的单位，以字宽为列宽的单位。我将两者的数值换算了一下，9/12时刚好为标准值3/4,其它情况下都有偏差，估计是四舍五入造成的。不知我的理解是否正确？

例子如下，请帮忙，先谢了！
 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:excel例子.zip

循环部分错误是因为你代码错误,不可以这么赋值的.

原来是基本概念没吃透。

谢谢专家！