項目

　Accessでの長さの単位

概要

Accessの画面等のプロパティで長さを設定する場合には「cm」を使用しますが、
VBAから設定する場合には「twips」です。
VBAから位置、サイズ等を設定する場合には「twips」で設定しなくてはいけません。

以下のコードでVBAでは「twips」が使用されている事が確認できます。

Option Compare Database
Option Explicit

'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'①フォームにコマンドボタンを貼り付けて幅、高さ共に1cmを設定
'②コマンドボタンを実行する
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub コマンド0_Click()
　　　　　　　　　　　　　　　　　　　　'[結果]
    MsgBox "幅：" & コマンド0.Width     '幅：567
    MsgBox "高：" & コマンド0.Height    '高：567
    
End Sub

　「1インチ = 1440 twips = 2.54cm = 72 ポイント」のようになっています。

変換例

Option Compare Database
Option Explicit

'1 cm = 567 twips
'1インチ = 1440 twips = 2.54cm = 72 ポイント

'++++++++++++++++++++++++++++++++
'■twips から cm に変換■
'++++++++++++++++++++++++++++++++
'value：twipsでの長さ
'++++++++++++++++++++++++++++++++
Function TwipsToCm(value As Double) As Double

    TwipsToCm = value / 567

End Function

'++++++++++++++++++++++++++++++++
'■cm から twips に変換■
'++++++++++++++++++++++++++++++++
'value：cmでの長さ
'++++++++++++++++++++++++++++++++
Function CmToTwips(value As Double) As Double

    CmToTwips = value * 567
    
End Function