共用方式為


Word) (Application.PointsToCentimeters 方法

會將度量單位從點轉換成公分 (1 公分 = 28.35 點)。 會傳回以 單一 轉換後的度量單位。

語法

expressionPointsToCentimeters( _Points_ )

expression 代表 Application 物件的變數。 選用。

參數

名稱 必要/選用 資料類型 描述
Points 必要 Single 以點數表示的度量。

傳回值

單一

範例

這個範例會將 30 點的度量值轉換成對應的公分數。

MsgBox PointsToCentimeters(30) & " centimeters"

本範例會根據 intUnit 變數的值,將變數 sngData 的值 (以) 為公分、英吋、線條、公釐或 picas 的度量值, (1 到 5 的值來表示所產生的度量單位) 。

Function ConvertPoints(ByVal intUnit As Integer, _ 
 sngData As Single) As Single 
 
 Select Case intUnit 
 Case 1 
 ConvertPoints = PointsToCentimeters(sngData) 
 Case 2 
 ConvertPoints = PointsToInches(sngData) 
 Case 3 
 ConvertPoints = PointsToLines(sngData) 
 Case 4 
 ConvertPoints = PointsToMillimeters(sngData) 
 Case 5 
 ConvertPoints = PointsToPicas(sngData) 
 Case Else 
 Error 5 
 End Select 
 
End Function

另請參閱

Application 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應