【300大洋请教大虾】如何实现这样有趣的功能？ (300分)

请教各位大哥哥，如何实现以下的功能：
1、MS word中，依次点击以下菜单：插入—>图片—>自选图形，即
刻在空白文档中添加你所选择的图形，而且可以设置该图形的形
状和大小。
2、http://www.snsoa.com/UserDoc/OnlineEdit.asp
点击“绘图”，选择某一个学科的学科符号，如化学中的烧杯，
即可在空白处画出一个烧杯，而且可以设置烧杯的大小。
3、http://www.slsoft.com.cn/rjxz/demo.zip
速龙易之课件制作系统5.0(演示版)不仅可以实现以上的功能，
而且还可以定义让烧杯运动等。
那么如果我想写一个程序，实现：在Ms word中增加一个菜单，把2
和3中类似的教学图形放到word中去，如在Ms word中增加一个名称
为“烧杯”的菜单或按钮，当用户点击它时，可以在空白文档中画
出一个烧杯，而且可以设置烧杯的大小、形状等性质。
或者，我们自己写一个程序，类似rx控件中的rxedit，然后把2和3
中类似的教学图形放到该程序中去，也可以让图形放大缩小。
2和3中的程序好像都是delphi写的，只是2中写成了ActiveX控件。
这样的程序该如何实现？请各位大虾指点

你知道你的想法
是不是想做试题库管理系统啊
劝你打消这个念头

不好意思，我是想做课件制作系统。

先研究一下矢量圖

第一:用VBA
第二:旋转是对位图操作的结果,并不是夭量旋转

to whtsuperant:
vba我懂一点，比如下面是添加一个长方形：
Set myDocument =do
cuments.Add
myDocument.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200

AddShape的用法如下：
expression.AddShape(Type, Left, Top, Width, Height, Anchor)
要改变所添加的自选图形的类型，可为其设置 AutoShapeType 属性
但是我不明白，如果我要自定义一个自选图形，比如烧杯状的，我该如何操作？

没有高手了吗？

参考一下MSDN吧，或许对你有所帮助。