正確なサイズの図形を印刷させるには？

正確なサイズの任意の図形、例えば十センチ四方の正方形をプリンターに印刷させるにはどのような方法をとればいいのでしょうか。
できれば、ビジュアルベーシックでできると助かるのですが、不可でしたら他の言語でもかまいません。
プログラミングの初心者ですので困っています。
参考になるＷｅｂページや書籍のアドバイスでも結構です。
詳しい方、よろしくお願いします。

No.2 ベストアンサー 回答者： kenken0001 回答日時： 2002/03/07 12:10

Sub Macro1()

ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
171.75, 83.25, _
182.25, 167.25). _
Select
End Sub

いろいろありますが一応四角は描けます。
171.75, 83.25
は、たぶん開始点の座標（左上）
182.25, 167.25（右下）

色を無くしたり
線幅を変えたり
線、丸もありますが

やったことないのでこの程度です。

イラスト、ゲーム関係の本なら詳しく
出ているかもしれません。
あやふやですいません。

ＣＡＤの方が
手順になれれば簡単かもしれません。
データの取り込みなども可能なので。

この回答へのお礼

早速のご回答、助かります。
後は、先に教えていただいた換算を考えればいいわけですね。
工夫してみます。
本当にありがとうございました。

お礼日時：2002/03/08 06:29

No.1 回答者： kenken0001 回答日時： 2002/03/05 14:54

Excel VBAでの話になります。

10cmの線ですが指定時はポイント単位でした。

換算は

１ポイント ＝ 1/72インチ
１cm ＝ 0.3937インチ

のため

10cm ＝ 283.464ポイント
になります。

小数点１位で四捨五入のようなので
283.5ポイントという指定になります。
逆算すると、10.00127cmになります。

誤差はでてしまうと思いますが
この計算でポイント指定をすると近いものは
描けると思います。

プリンタの関係もあるので
試行錯誤でということになると思います。

また線種にもよりますが
線の外側で10cmですか、内側、中心？
設定方法が違うと思います。

製図か何かですか？
具体的には何を？
精度はどの程度ですか。


283.5
72
0.3937
10.00127
10
283.464

この回答へのお礼

回答いただき、ありがとうございました。

なるほど、エクセルでできるんですね。
目的は簡単な製図なんですが、希望精度として１０センチで誤差０．１ミリ以内もとれれば御の字です。
具体的にはどんなプログラムになるのでしょうか？
もしできましたら、簡単なサンプルを教えていただけるとうれしいのですが・・・。

お礼日時：2002/03/05 22:35