WORD做数学图？

pxc417

想请教各位专家，我想在WORD中做AB线段，然后作出AB的中点C，拖动点A，点B，点C始终保持是中点。

用VBA编程行不？我对VBA不熟悉！

c81

你是要做动态的还是静态的？

其实Word内置的旋转工具默认的就是以中心为对称的。

wangdl

直接画线
1.用“直线”工具任意画出一条水平线段；
2.对着“线段”右击，“编辑顶点”；
3.用鼠标单击线段中任意一点，再向上（或向下）拖动到适当位置即可。

守柔

匆匆做了一下，请楼主测试。

相关例子和注释等可搜索我的部分作品。

Sub GetMyPoints()
'取得线条中点
    Dim myLine As Variant
    Dim PointsArray() As Single, X1 As Single, Y1 As Single, X2 As Single, Y2 As Single
    Dim X3 As Single, Y3 As Single, MyPoints As Shape, ParallelX As Byte, ParallelY As Byte
    On Error Resume Next    '忽略错误(此处有很大作用)
    With Selection.ShapeRange    '选定的图形对象
        If .Count <> 1 Or .Type <> msoLine Then MsgBox "错误的操作!导致出错的原因可能有:" _
         & vbCrLf & "1.没有选定;" & vbCrLf & "2.选定的自选图形不是直线;" _
         & vbCrLf & "3.选定的线条数量超过了一条; " & vbCrLf & _
           "4.其它.", vbOKOnly + vbExclamation, "Microsoft Word": Exit Sub
        Set myLine = .Item(1)    '获得其中的对象之一
        With myLine.Nodes    '对象一的几何图形
            PointsArray = .Item(1).Points    '顶点之一坐标,是个数组
            X1 = PointsArray(1, 1)    'X轴
            Y1 = PointsArray(1, 2)    'Y轴
            PointsArray = .Item(2).Points    '顶点之二坐标
            X2 = PointsArray(1, 1)    'X轴
            Y2 = PointsArray(1, 2)    'Y轴
        End With
        If X1 > X2 Then X3 = X2 + (X1 - X2) / 2 Else X3 = X1 + (X2 - X1) / 2
        If Y1 > Y2 Then Y3 = Y2 + (Y1 - Y2) / 2 Else Y3 = Y1 + (Y2 - Y1) / 2
    End With
    '定义一个圆形
    Set MyPoints = ActiveDocument.Shapes.AddShape(msoShapeOval, X3 - 1, Y3 - 1, 2, 2)
    With MyPoints
        .Line.ForeColor = myLine.Line.ForeColor
        .Line.Weight = myLine.Line.Weight
    End With
    ActiveDocument.Shapes.Range(Array(myLine.Name, MyPoints.Name)).Group
End Sub
'----------------------

[此贴子已经被作者于2006-12-8 6:48:32编辑过]

andysky

QUOTE:

以下是引用wangdl在2006-12-4 22:54:15的发言：

直接画线
1.用“直线”工具任意画出一条水平线段；
2.对着“线段”右击，“编辑顶点”；
3.用鼠标单击线段中任意一点，再向上（或向下）拖动到适当位置即可。

手工拖就不精确了。还是用代码好。

雨雪霏霏

谢谢老大！

老大的思路非常清晰，佩服！

先用老大的绝招找到中点，再于中点处插入一个小圆形，利用“组合”功能，让圆形的位置（线段中点）始终与线段保持同步变化。确实是“正解”。

由老大的代码可以作许多种引申应用，如：

①为一条线段三等分、四等分……

②把一个圆形的边线分为三等分、四等分……

③把一个圆等分为三个扇形区、四个扇形区……

④为一个矩形自动添加四个“中点”于四条边，为一个矩形的四个角加上“顶点”。

这些问题的解决，将对“Word数学作图”有非常大的帮助。谢谢老大提供了思路！小弟日后再慢慢琢磨！

当然，数学作图其实还牵涉到直线与圆形的相切问题，或者说两个圆互相紧挨着但不重叠，这都需要进一步的研究。

再：老大以上的代码，只能在非画布状态下使用，敬请楼主注意。

不当之处，请老大指正！

pxc417

十分感谢各位老师的帮忙！