【VBAリファレンス】VBAで列幅・行高をピクセル単位で完璧に制御する：DPIスケーリングの壁を突破する技術

概要：なぜVBAで「ピクセル」指定が必要なのか

Excel VBAで帳票やダッシュボードを作成する際、もっとも多くのエンジニアが頭を悩ませるのが「レイアウトの崩れ」です。特に、環境によって異なる「DPI（Dots Per Inch）設定」が原因で、開発環境では綺麗に収まっていたセル幅が、実行環境では微妙にズレて表示されるという現象は、実務現場における「あるある」です。

Excelの標準プロパティである`ColumnWidth`は「文字数」単位、`RowHeight`は「ポイント」単位で管理されています。しかし、GUIのUI要素や画像、あるいは特定のピクセル精度を要求される帳票レイアウトでは、OSのディスプレイ設定（100%、125%、150%など）に依存しない「ピクセル基準」での制御が不可欠です。本稿では、Windows APIを活用して現在のDPIを取得し、ピクセル単位で正確に列幅・行高を計算・指定する高度な実装テクニックを解説します。

詳細解説：Excelの座標系とDPIの深い関係

まず理解すべきは、Excelの内部数値と画面表示の乖離です。Excelの列幅は、標準フォントの「0」の文字幅を基準にしており、行高は「ポイント（1/72インチ）」を基準にしています。一方で、WindowsのOSはディスプレイの解像度に応じてDPIスケーリングを行い、実際の表示ピクセルを決定します。

この変換式を紐解くと、以下の構造が見えてきます。
1. 現在のディスプレイの論理DPIを取得する。
2. デフォルトのDPI（96）に対する倍率を算出する。
3. 目的のピクセル数を、その倍率とExcelの換算係数を用いて補正する。

Windows APIの`GetDC`および`GetDeviceCaps`関数を使用することで、現在アクティブなモニターのDPIを正確に取得可能です。これにより、ユーザーの環境が「推奨設定」であっても「拡大設定」であっても、コード側で動的に補正をかけることが可能となります。

サンプルコード：ピクセル指定を実現するモジュール

以下のコードは、標準モジュールに貼り付けて使用してください。このコードは、指定したピクセル数をもとに、Excelの列幅と行高を動的に調整する実用的な関数群です。

Option Explicit

' Windows APIの宣言
Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hdc As LongPtr, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As LongPtr, ByVal hdc As LongPtr) As Long

Const LOGPIXELSX = 88
Const LOGPIXELSY = 90

' 現在のDPI倍率を取得する関数
Private Function GetDPIScale() As Double
    Dim hdc As LongPtr
    Dim dpiX As Long
    
    hdc = GetDC(0)
    dpiX = GetDeviceCaps(hdc, LOGPIXELSX)
    ReleaseDC 0, hdc
    
    ' 96DPIを基準(1.0)とした倍率を返す
    GetDPIScale = dpiX / 96
End Function

' ピクセルから列幅(ColumnWidth)へ変換して設定
Public Sub SetColumnWidthInPixels(rng As Range, pixelWidth As Double)
    Dim scaleFactor As Double
    scaleFactor = GetDPIScale()
    
    ' Excelの列幅は 1単位 ≒ 1文字幅。概算式として (pixel / scale) / 7 を利用
    ' フォント設定により微妙な誤差が出るため、微調整が必要な場合が多い
    rng.ColumnWidth = (pixelWidth / scaleFactor) / 7
End Sub

' ピクセルから行高(RowHeight)へ変換して設定
Public Sub SetRowHeightInPixels(rng As Range, pixelHeight As Double)
    Dim scaleFactor As Double
    scaleFactor = GetDPIScale()
    
    ' ポイント換算: (pixel / scale) * 0.75
    rng.RowHeight = (pixelHeight / scaleFactor) * 0.75
End Sub

' 使用例
Sub Example_LayoutSetting()
    Dim targetRange As Range
    Set targetRange = ActiveSheet.Columns("A")
    
    ' A列を200ピクセル幅、1行目を50ピクセル高に設定
    SetColumnWidthInPixels targetRange, 200
    SetRowHeightInPixels Rows(1), 50
End Sub

実務アドバイス：精度の限界と回避策

上記のコードは非常に強力ですが、実務で導入する際にはいくつか注意すべき点があります。

1. フォントの影響：
Excelの`ColumnWidth`は、設定されているフォントの「0」の文字幅に依存します。プロポーショナルフォント（MS Pゴシックなど）を使用している場合、微小な誤差が発生します。厳密な制御が必要な場合は、固定幅フォント（MS ゴシックなど）を指定することを強く推奨します。

2. ズーム倍率との兼ね合い：
Excelの表示倍率（Zoom）が100%でない場合、見た目のピクセル数はさらに変化します。上記のコードは「物理的なセルサイズ」を制御するものであり、ユーザーが画面を拡大・縮小した際の表示結果までは制御しません。業務アプリとして配布する場合は、「表示倍率は100%でご利用ください」という注意書きを添えるのがプロの作法です。

3. DPIの動的変更：
ノートPCをドッキングステーションに接続した際など、実行中にDPIが変更されるケースがあります。頻繁にレイアウトを再計算すると描画負荷が高まるため、`Workbook_Open`イベントや、シートの`Activate`イベント時に一度だけ計算し、設定を適用するフローが最適です。

まとめ：技術力で「環境依存」を克服せよ

VBAにおけるレイアウト制御は、しばしば「職人芸」のような微調整に終始しがちです。しかし、APIを活用してDPI情報を取得し、環境に応じたスケーリングを自動化することで、その作業は「エンジニアリング」へと昇華されます。

今回紹介したピクセル変換ロジックを実装することで、配布先で「レイアウトが崩れている」というクレームを未然に防ぎ、より堅牢でプロフェッショナルなExcelツールを提供できるようになります。VBAは古い言語だと言われることもありますが、Windows OSの深層と対話するAPI活用技術を組み合わせれば、現代のモダンな環境下でも十分に強力な武器となります。

ぜひ、皆さんの開発する帳票生成ツールやダッシュボードに、このDPIスケーリングの概念を組み込んでみてください。コードの品質が一段階上のレベルへ引き上げられることをお約束します。