共用方式為

Word) (Application.PointsToPicas 方法

  • 發行項

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

語法

expression。 PointsToPicas( _Points_ )

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

參數

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

傳回值

單一

範例

這個範例會將 36 點轉換成對應的 Pica 數。

MsgBox PointsToPicas(36) & " picas"

本範例會根據 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 支援與意見反應。