如果改变EXCEL行高等单位为厘米

make

如果改变EXCEL行高等单位为厘米,在哪里设置,我找了一天都没找到.

请高手赐教

hzg7818

估计在等到微软成为一家中国公司的时候有望实现

tmtony

好像没有直接设置的选项，stanleypan的方法不错也可试试下面这个方法

Sub SetColumnWidthMM(ColNo As Long, mmWidth As Integer)

' 改变栏宽为MM

Dim w As Single

    If ColNo < 1 Or ColNo > 255 Then Exit Sub

    Application.ScreenUpdating = False

    w = Application.CentimetersToPoints(mmWidth / 10)

Dim w As Single

    If ColNo < 1 Or ColNo > 255 Then Exit Sub

    Application.ScreenUpdating = False

    w = Application.CentimetersToPoints(mmWidth / 10)

    While Columns(ColNo + 1).Left - Columns(ColNo).Left - 0.1 > w

        Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth - 0.1

    Wend

    While Columns(ColNo + 1).Left - Columns(ColNo).Left + 0.1 < w

        Columns(ColNo).ColumnWidth = Columns(ColNo).ColumnWidth + 0.1

    Wend

End Sub



Sub SetRowHeightMM(RowNo As Long, mmHeight As Integer)

' 改变行高为MM

    If RowNo < 1 Or RowNo > 65536 Then Exit Sub

    Rows(RowNo).RowHeight = Application.CentimetersToPoints(mmHeight / 10)

End Sub

下面例子设置行3 列C的列宽和行高为3.5CMSub ChangeWidthAndHeight()   

  SetColumnWidthMM 3, 35   

  SetRowHeightMM 3, 35

End Sub

应该大致可实现

[此贴子已经被作者于2004-6-24 21:35:13编辑过]

make

非常感谢stanleypan帮助

tony666

请教tmtony

这段代码如何用啊

yfm007

以下是引用make在2004-6-22 13:13:00的发言：


如果改变EXCEL行高等单位为厘米,在哪里设置,我找了一天都没找到.
请高手赐教

如果改变EXCEL行高等单位为厘米,在哪里设置,我找了一天都没找到.
请高手赐教

我也非常想知道

zx733

支持就是力量！