Método Application.TwipsToPoints (Publisher)

Converte uma medida de twips em pontos (20 twips = 1 ponto). Retorna a medida convertida como um Single.

Sintaxe

expressão. TwipsToPoints (Valor)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Valor	Obrigatório	Single	O valor em twips a ser convertido em pontos.

Valor de retorno

Único

Comentários

Use o método PointsToTwips para converter medidas em pontos em twips.

Exemplo

Este exemplo converte medidas inseridas pelo usuário em twips em medidas em pontos.

Dim strInput As String 
Dim strOutput As String 
 
Do While True 
 ' Get input from user. 
 strInput = InputBox( _ 
 Prompt:="Enter measurement in twips (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) & " twips = " _ 
 & Format(Application _ 
 .TwipsToPoints(Value:=Val(strInput)), _ 
 "0.00") & " points" 
 
 MsgBox strOutput 
Loop 

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.