如何自定义插入图片在宏里的名称？

suhaidong

这可能是一个比较低级的问题，我看了2天还不会，请各位帮忙。问题描述如下：

1：目的：为了把很多图储存在一个doc（SourceBmp.doc）里，供其他doc（Run.doc）调用。

2：方法：打开SourceBmp.doc，把一幅图粘贴在上面，从图上移开光标，菜单操作工具——宏——录制新宏，点击图像，使之被选中，停止录制。菜单操作工具——宏——VB编辑器，可以看到如下代码：

sub Macro2() ActiveDocument.Shapes("Group 2").Select End Sub

此时我才知道这幅图的名称是"Group 2"，目的达到。这时我就可以把这个宏删除了。

3：问题：个人感觉这个方法很笨，而且我想自己命名这个图像的名字，现在都是“Group n”的名字太不好记忆了，我想给他取有实际意义的名字，如OpenFileBmp等等。

4：我的环境：win2000+Office2000

多谢各位的帮忙！

suhaidong

[em06]

suhaidong

是我的问题太简单了，所以没人回答吗？

自己踢一下

守柔

呵呵，搜索一下，论坛中还是很多的。

请参考一下：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-7-15 13:17:05 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim MyPicture As Shape Set MyPicture = ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, FileName:= _ "C:\Documents and Settings\My Documents\My Pictures\BP1.gif") With MyPicture .Name = "MyPicture" .Width = Word.CentimetersToPoints(5) .Height = Word.CentimetersToPoints(5) .Left = wdShapeCenter .Top = Word.CentimetersToPoints(2) End With '通常情况下无需选定,直接将方法或者属性作用于MyPictrue对象上即可.如上面 ' MyPicture.Select ActiveDocument.Shapes("MyPicture").Select End Sub '----------------------

suhaidong

多谢 守柔的回复。我在Word里加入2个Button，代码如下

Private Sub CommandButton1_Click() ActiveDocument.Shapes("Group 2").Select '如果名字已经改成了Chm_Junior_1，那么应该报错才对，但是结果却能够正确选择到图像上，那么是不是说这一幅图有2个Name？这不符合正常的编译原理。 ActiveDocument.Shapes("Group 2").Name = "Chm_Junior_1"

MsgBox (ActiveDocument.Shapes("Group 2").Name)

'结果是Chm_Junior_1 End Sub

Private Sub CommandButton2_Click() ActiveDocument.Shapes("Chm_Junior_1").Select MsgBox (ActiveDocument.Shapes("Chm_Junior_1").Name)

'结果还是Chm_Junior_1 End Sub