Método Application.PointsToMillimeters (Publisher)

Convierte una medida de puntos a milímetros (1 mm = 2,835 puntos). Devuelve la medida convertida como Single.

Sintaxis

expresión. PointsToMillimeters (Value)

expresión Variable que representa un objeto Application.

Parámetros

Valor devuelto

Simple

Comentarios

Utilice el método MillimetersToPoints para convertir a puntos las medidas en milímetros.

Ejemplo:

En este ejemplo se convierten las medidas en puntos especificados por el usuario en medidas en milímetros.

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 _ 
 .PointsToMillimeters(Value:=Val(strInput)), _ 
 "0.00") & " mm" 
 
 MsgBox strOutput 
Loop 

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.