|
AddLineでの、線がずれる問題に困っています。
特殊なグラフを作成するため。Excelのグラフではなく、シートに直接グラフを描かせているのですが。そのときに、AddLineで線を描かせると線の位置がずれるという現象がおきてしまいます。
Excel2000のVBAで以下のコードを描くと、その現象がわかりやすいのですが。
ActiveSheet.Shapes.AddLine(100, 100, 100, 200).Select
ActiveSheet.Shapes.AddLine(101, 100, 101, 250).Select
ActiveSheet.Shapes.AddLine(150, 100, 150, 200).Select
ActiveSheet.Shapes.AddLine(151, 100, 151, 250).Select
ActiveSheet.Shapes.AddLine(200, 100, 200, 200).Select
ActiveSheet.Shapes.AddLine(201, 100, 201, 250).Select
ActiveSheet.Shapes.AddLine(250, 100, 250, 200).Select
ActiveSheet.Shapes.AddLine(251, 100, 251, 250).Select
ActiveSheet.Shapes.AddLine(300, 100, 300, 200).Select
ActiveSheet.Shapes.AddLine(301, 100, 301, 250).Select
ActiveSheet.Shapes.AddLine(350, 100, 350, 200).Select
ActiveSheet.Shapes.AddLine(351, 100, 351, 250).Select
ActiveSheet.Shapes.AddLine(400, 100, 400, 200).Select
ActiveSheet.Shapes.AddLine(401, 100, 401, 250).Select
ActiveSheet.Shapes.AddLine(450, 100, 450, 200).Select
ActiveSheet.Shapes.AddLine(451, 100, 451, 250).Select
ActiveSheet.Shapes.AddLine(500, 100, 500, 200).Select
ActiveSheet.Shapes.AddLine(501, 100, 501, 250).Select
それぞれの2本の線の間隔が一定になりません。
私に環境に特有の問題でしょうか?
同じ現象になることはあるでしょうか?
解決方法をご存知の方はいましたら、教えていただけないでしょうか?
よろしく、お願いします。
|
|