フォントサイズをピクセルで指定するには？ (ID:101986)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 やぁやぁ弁士さん、おひさしぶり 指定できるフォントって、画面の解像度に合ってないですか？ Dim px As Long Dim siz As Single Dim f As New StdFont For px = 1 To 1024 siz = px * Screen.TwipsPerPixelY / 20 f.Size = siz If siz <> f.Size Then Debug.Print px, siz, f.Size End If Next 結果 1 0.75 1.5 ディスプレイドライバによるのかしら？