Método Application.PointsToInches (Word)

Convierte una medida de puntos a pulgadas (1 pulgada = 72 puntos). Devuelve la medida convertida como un valor único.

Sintaxis

expresión. PointsToInches( _Points_ )

expresión Variable que representa un objeto Application. Opcional.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
Points Obligatorio Single Medida en puntos.

Valor devuelto

Simple

Ejemplo:

En este ejemplo se convierte la medida del margen superior del documento activo a pulgadas y se muestra el resultado en un cuadro de mensaje.

MsgBox PointsToInches(ActiveDocument.Sections(1) _ 
 .PageSetup.TopMargin)

En este ejemplo se convierte el valor de la variable sngData (una medida en puntos) en centímetros, pulgadas, líneas, milímetros o picas, en función del valor de la variable intUnit (un valor de 1 a 5 que indica la unidad de medida resultante).

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

Vea también

Objeto Application

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.