最新閲覧日:

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

このQ&Aに関連する人気のQ&A

A 回答 (2件)

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(右下)

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

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

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

CADの方が
手順になれれば簡単かもしれません。
データの取り込みなども可能なので。
    • good
    • 0
この回答へのお礼

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

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

Excel VBAでの話になります。


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

換算は

1ポイント = 1/72インチ
1cm = 0.3937インチ

のため

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

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

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

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

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

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


283.5
72
0.3937
10.00127
10
283.464
    • good
    • 0
この回答へのお礼

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

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

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

このQ&Aに関連する最新のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ