equivalencia de pixeles a centimetros

[Beakdan]

Troyano:
Utiliza los métodos ScaleX y ScaleY
Lo usarías más o menos así:

Código:

Dim nPixPerCentX As Single
Dim nPixPerCentY As Single
 
	nPixPerCentX = Me.ScaleX(1, vbCentimeters, vbPixels)
	nPixPerCentY = Me.ScaleY(1, vbCentimeters, vbPixels)

Saludos