A01056 - 利用 InchesToPoints 方法将计量单位从 in 转换为磅 - P35

admin

1. Public Sub 技巧1_056()
   2 r, r: Q& _% J5 ^6 M+ Z8 r
2.     Dim myRange As Range
   
3.     Set myRange = ActiveSheet.Range("A1")
   ; n" Y# N$ c$ j2 U* H- H9 f1 U
4.     With myRange
   
5.         .RowHeight = Application.InchesToPoints(1)   '行高1英寸
   ! d# [: N8 N4 A* S5 b; k, \
6.         .ColumnWidth = Application.InchesToPoints(0.5)   '列宽0.5英寸
   
7.     End With
   ) a" w: |" u3 M8 l* A+ K3 G
8.     Set myRange = Nothing
   
9. End Sub

复制代码