如何利用ScaleMode如何将度量单位定义为“米”？请指点一下！

定义为米?..有意义么?

Dim X As Single, Y As Single
Me.ScaleMode = vbCentimeters '先将ScaleMode设置为厘米
X = Me.ScaleWidth / 100 '分别将ScaleWidth、ScaleHeight值转化成以米为单位
Y = Me.ScaleHeight / 100
Me.ScaleMode = vbUser '再定义ScaleMode为用户自定义
Me.ScaleWidth = X '再重新将转化以米为单位的两个值写回，这样ScaleMode的单位就转成以米为单位了。
Me.ScaleHeight = Y