访问图

huangshiming

访问表，可以使用ThisDocument.Tables(1).Select，那访问图呢？似乎找不到charts这样的集合。

守柔

变通一下:

Sub Example() Dim i As Shape For Each i In Me.Shapes If i.Name Like "Object*" = True Then i.Select MsgBox "This is a chars" End If Next End Sub

办公之星

请老大给看看，什么问题？

6scKvcJ2.rar (82.78 KB, 下载次数: 10)

2004-11-9 13:08 上传

点击文件名下载附件
访问图

守柔

是分卷压缩的吧，我的解压rar用的是ExtratNow.exe,不支持分卷压缩，能不能用ZiP打包一下？

[此贴子已经被作者于2004-11-9 13:59:40编辑过]

守柔

不明白办公兄的意思打开看是一个体育场馆的一个图片是不是雅典的就不得而知了很是漂亮啊。

办公之星

是这样，最近在EXCELVBA上小有进展，一高兴就打开了斑竹关于WORD编程的帖子。

那个图片，是瞎子打狗，想揣摩程序运行的效果。

请斑竹帮个忙，这是偶第一次看关于WORD的编程帖子。

守柔

你的图片与我程序是两个概念.

在我的上述代码中,是在所有图形对象(shapes)集合中循环如果其Name的属性为"Object*",则代码判断为插入的图表(CHARTS),你这是一个图形,如果你将IF语句拿掉就可以选定了,和文件名没有关系.

办公之星

第一次看东西，觉得新奇，出错在所难免。