A01055 - 利用 GentimetersToPoints 方法将计量单位从 cm 转换为磅 - P34

admin

1. Public Sub 技巧1_055()
   
2.     Dim myRange As Range
   4 D7 W2 U) N6 a) b; \9 t# b
3.     Set myRange = ActiveSheet.Range("A1")
   & A' h7 t* m2 @, {  {6 _
4.     With myRange
   ; U9 a/ V% O8 B4 r8 w2 |+ Y
5.         .RowHeight = Application.CentimetersToPoints(1)     '行高1厘米
   ) |7 ~2 c/ \- p) v% X3 L
6.         .ColumnWidth = Application.CentimetersToPoints(2)   '列宽2厘米
   : e* m4 ?& f& F' H
7.     End With
   9 Y2 K3 R3 J: ]
8.     Set myRange = Nothing
   $ q+ n! `. B' U- n& p) k; ~: Y' m
9. End Sub

复制代码