在WORD中如何画直角坐标系？

做了一个在WORD中画直角坐标的VBA，可是有几个问题不能解决，版主给看看

1、如何将坐标轴未端标出箭头？

2、能否标出坐标的刻度？

3、坐标原点能否自定义？即如图所示：

LPpYKFCE.rar (14.06 KB)

LPpYKFCE.rar (14.06 KB)
在WORD中如何画直角坐标系？
下载次数: 206

2004-12-5 13:47

附件

g2cDrxDZ.jpg(6.15 KB)

2004-12-5 13:55

在WORD中如何画直角坐标系？

楼主作得不错，鼓励一下！

我的想法，请楼主看一下，能否考虑以此进行修改：

楼主采用的X/Y轴是以四个线条（不算刻度值）组合而成，直接用二条线条应该即可以作出，这样也就可以使用箭头型直线来标识方向。例：假如原点坐标选取在离页面最左上角顶端（0，0）为5CM/5CM，要求长度为X轴4CM，Y轴4CM，那么，X轴线条的LEFT=1CM，Top=5cm,WIDTH=4CM，加上预箭头位置，可以为4.5CM;y轴线条的LEFT=5CM,TOP=5-4-0.5(预留箭头位置),HIGHT=4.5CM.

然后再进行分刻度,标识刻度可以使用四个文本框(或者矩形框)进行,其宽度为四个刻度间距,如各为2CM,这样可以简化代码处理.

一些原理和代码可参考:http://club.excelhome.net/viewthread.php?tid=59709(PW:shourou)

非完全版，还有一个问题未解决。（待以后有时间再说）

至于分刻度问题，我也叫不准，目前的设计应该算2分度和4分度吧？我没改叫法。

LYzYvAjT.zip (21.48 KB)

LYzYvAjT.zip (21.48 KB)
在WORD中如何画直角坐标系？
下载次数: 82

2004-12-7 12:55

vbe pw:shourou

F2YxIACQ.rar (23.42 KB)

F2YxIACQ.rar (23.42 KB)
在WORD中如何画直角坐标系？
下载次数: 142

2004-12-8 06:17

附件

5MHh8xLk.bmp(24.36 KB)

2004-12-8 06:17

在WORD中如何画直角坐标系？

GGGlhz7b.bmp(24.36 KB)

2004-12-8 06:17

在WORD中如何画直角坐标系？

以下代码供网友学习参考：

'* +++++++++++++++++++++++++++++++++++++++

'* Created By @ExcelHome 2004-12-08 6:15:03

'System: Windows NT Word: 10.0 Language: 2052

'^The Code CopyIn [-1]^'

'* --------------------------------------------------------------------------

Public BeforeShapes As IntegerSub 画坐标系()UserForm1.ShowEnd Sub'----------------------Sub SelAllShapes()Dim AllShapes(), ShapeCount As Integer, N As Shape, Y As IntegerShapeCount = ActiveDocument.Shapes.CountY = 0'定义一维上标可变数组,从0开始ReDim AllShapes(ShapeCount - BeforeShapes - 1)With ActiveDocumentFor Each N In .ShapesIf N.Name Like "已有图形*" = False ThenAllShapes(Y) = N.NameY = Y + 1End IfNext NWith .Shapes.Range(AllShapes).Group.ZOrder msoSendToBack.Select'.Name = "坐标系"End WithEnd WithEnd Sub'----------------------
守柔仅测试于用户窗体

几天有事情没来，版主就有这么多回复，而且精彩得很！非常高兴，先谢了，然后一并收下仔细研究……

呵！呵！版主就是版主！不一般！

我改了一下代码。。做了个这们界面画了个这样的图

怎样才能看到图呢？

document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />这回有图了

同时也出了个问题，就是第一张图可能组合到一起去，而第二张就不行了。。。。再想想。

想通了，原来一个全局变量给换掉了。哈哈，，，，，，，

[此贴子已经被作者于2005-6-9 19:35:30编辑过]

附件

sSUEYTe1.jpg(33.18 KB)

2005-6-9 13:08

KNrYw9oX.jpg(3.07 KB)

2005-6-9 13:09