Application.PointsToTwips 方法 (Publisher)

將度量單位從 點 轉換為 twip (20 twip = 1 點) 。 會傳回以 單一 轉換後的度量單位。

語法

運算式。PointsToTwips (值)

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
值	必要	Single	以指定須轉換成 Twip 的點數值。

傳回值

單一

註解

使用 TwipsToPoints 方法可將度量單位從 Twip 轉換成點。

範例

本範例會將使用者所輸入點的度量單位轉換為以 twip 為單位的度量。

Dim strInput As String 
Dim strOutput As String 
 
Do While True 
 ' Get input from user. 
 strInput = InputBox( _ 
 Prompt:="Enter measurement in points (0 to cancel): ", _ 
 Default:="0") 
 
 ' Exit the loop if user enters zero. 
 If Val(strInput) = 0 Then Exit Do 
 
 ' Evaluate and display result. 
 strOutput = Trim(strInput) & " points = " _ 
 & Format(Application _ 
 .PointsToTwips(Value:=Val(strInput)), _ 
 "0.00") & " twips" 
 
 MsgBox strOutput 
Loop 

支援和意見反應

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