VBA实用小程序73:厘米、英寸和像素、磅的转换 |
您所在的位置:网站首页 › 毫米和像素怎么转换 › VBA实用小程序73:厘米、英寸和像素、磅的转换 |
excelperfect Excel、PowerPoint和Word使用了一种称为磅的测量方法。但是,标准应用程序菜单中的测量单位是厘米或英寸。 可以在Excel选项更改默认的测量单位。单击“文件->选项->高级->显示->标尺单位”,如下图1所示,修改默认单位。 ![]() 图1 英寸、厘米、磅的转换 从英寸或厘米转换为磅相当简单,因为1英寸等于72磅,1厘米等于28.35磅(四舍五入到小数点后2位)。Microsoft提供了两个有用的VBA函数来进行转换。 从英寸转换为磅 Sub InchesToPoints() Dim valueInches As Double Dim valuePoints As Double valueInches = 25 valuePoints =Application.InchesToPoints(valueInches) Debug.Print valuePoints End Sub 从厘米转换为磅 Sub CentimetersToPoints() Dim valueCentimeters As Double Dim valuePoints As Double valueCentimeters = 25 valuePoints =Application.CentimetersToPoints(valueCentimeters) Debug.Print valuePoints End Sub 从磅转换为厘米 Sub PointsToCentimeters() Dim valuePoints As Double Dim valueCentimeters As Double valuePoints = 50 valueCentimeters = valuePoints /Application.CentimetersToPoints(1) Debug.Print valueCentimeters End Sub 从磅转换为英寸 Sub PointsToInches() Dim valuePoints As Double Dim valueInches As Double valuePoints = 700 valueInches = valuePoints /Application.CentimetersToPoints(1) Debug.Print valueInches End Sub 磅、像素的转换 虽然像素似乎是一个可以理解的度量单位,用于控制对象的位置,但它并不像预期的那样有用。像素的数量取决于各种因素,例如每个监视器使用的屏幕分辨率。可以使用下面的VBA代码将磅转换为像素。 Sub PointsToPixels() Dim valuePoints As Long Dim valuePixels As Long valuePoints = 500 valuePixels =Application.ActiveWindow.PointsToScreenPixelsX(valuePoints) Debug.Print "X轴像素: " &valuePixels valuePixels = Application.ActiveWindow.PointsToScreenPixelsY(valuePoints) Debug.Print "Y轴像素: " &valuePixels End Sub 注:本文的程序整理自exceloffthegrid.com,供学习参考。 欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |