【word vba】自学日志10:用几何画板的方式画图

先看效果

最近在用vba来模仿几何画板的画图方式，在word里画图。理论是有了，但是实现过程很复杂，花了大量时间，连总结分享的时间都没了。

几何画板和word的图形都是由很多种小图形构成的，就是说要用变量来存储图形信息，为了这个，学习了字典来存储信息。Dim d,Set d= CreateObject("Scripting.Dictionary"),可以用这种方式来建立字典，字典附带的几种方法，可以方便地添加和删除元素，例如d.add 添加，d.remove，删除元素，d.exist()判断是否存在，用这几种方法，可以方便地添加和删除图形，通过修改d.item()的值，可以修改图形信息。那么有了这些方法，就可以模仿几何画板操控图形的方法了。

由于vba是在word中，对于鼠标以及图形的选择判断很复杂，所以先选择用面板来操控图形，等将来有时间有实力了，再来完全模仿几何画板的操作。

由于word图形的存储很特殊，访问图形的特征也很麻烦，所以干脆把图形的一些重要信息存储到图形的名字中去，可惜word的图形名字的长度有限制。

现在是实时建立图形，只能在建立时的面板修改，将来还要加入，以往建立的图形也能修改。