タイトル | : Re^3: スケールモードのセンチメートルについて |
記事No | : 11244 |
投稿日 | : 2008/01/28(Mon) 01:34 |
投稿者 | : 花ちゃん |
> 物理サイズで線を引くようなことはできますでしょうか? > (プリンタの論理サイズで計算するような方法など)
画面の実幅 が求められるなら計算できますが、実測して求めるなら (プリンターの場合用紙の寸法が決まっているので物理サイズが計算できる)
画面上の物理サイズ(mm)=画面の解像度×Screen.TwipsPerPixelX ÷ 画面の物理実幅(mm)
私のノートで計算すると 53.89 Twip = 1024(ピクセル) * 15 / 285(画面の実幅)
従って 下記で10mm 毎に線を引く事ができます。 Private Sub Form_Load() Me.ScaleMode = vbTwips Me.AutoRedraw = True Dim i As Long For i = 100 To 6000 Step 539 Line (i, 0)-(i, 500) Next i End Sub
|