[求助]如何插入自己编辑的图形？（问题附件已修正 ）

gao2ming1

这是我在编写“简易物理画板”时碰到的问题：

1.我画了几个图形，改名后创建成自动图文集。2.创建“自……”工具栏，然后用“自定义”放入了“跑”、“跳”按钮。但插入时不能自动选定。3.所以我编写了宏，自动选折的目的达到了，但是当插入第二个时，会把第一个以选的代替掉。请问怎样用代码，在插入图形时推出前面的选择。

Sub 跑()

    NormalTemplate.AutoTextEntries("跑").Insert Where:=Selection.Range, _

        RichText:=True

    ActiveDocument.Shapes("lxq-rw2").Select   

End Sub

Sub 跳()

NormalTemplate.AutoTextEntries("跳").Insert Where:=Selection.Range, _

        RichText:=True

    ActiveDocument.Shapes("lxq-rw4").Select

End Sub

 

L8u7reKb.rar (7.97 KB, 下载次数: 10)

2007-5-8 18:17 上传

点击文件名下载附件
[求助]如何插入自己编辑的图形？（问题附件已修正 ）

[此贴子已经被作者于2007-5-8 18:17:41编辑过]

sam9328

Selection.Range,   位置问题

gao2ming1

能否说清楚点，我是说本来有一个图形被选中的，当插入第二个的时候，自动退出对上一个的选中，这样能避免图形被替换掉

yuyvtul

好像不是替换，是重合吧？
最简单的办法，是将原图片设置为不允许重叠。

chylhr

http://club.excelhome.net/viewthread.php?tid=238577&px=0也是楼主为这个问题而问的吧,在哪里几位朋友已经把这个问题解决了。另外说一句，你做的组合图形很有意思。

gao2ming1

谢谢各位的帮助，我已经做成功了