用Shapes的SetPosition方法出现错误:指定的值超出了范围

kugezai · 发表于 2012-10-4 22:29

从网上拷贝了一个代码，用来在excel的sheet1中画线并调整一端的位置，但运行后发现了问题，

一、把该代码放到sheet1的代码区运行，当运行到调整一端位置时，出现“无效的过程调整或参数”的错误提示；

二、当把该代码放到sheet1的模块区运行时，则出现“指定的值超出了范围”错误提示。

请问这是什么原因，当如何解决？盼知情坛友解惑，感谢！

代码如下：
Sub test()
Sheet1.Shapes.AddLine(100, 180, 400, 180).Name = "abc" '画直线并命名为abc
Dim aa As Shape
Set aa = Sheet1.Shapes("abc")
aa.Nodes.SetPosition 2, 500, 180 '修改第2个顶点,此句出现问题
aa.Line.ForeColor.RGB = vbRed
aa.Line.Weight = 20
End Sub

附件如下，请坛友们调试，感谢！

画线.rar (12.99 KB, 下载次数: 21)

kugezai · 发表于 2012-10-5 10:03

盼高手。。。。。。

KCFONG · 发表于 2012-10-6 08:19

此属性适用于代表任意多边形

kugezai · 发表于 2012-10-6 09:01

KCFONG 发表于 2012-10-6 08:19
此属性适用于代表任意多边形

感谢KCFONG 老师！
如何解决这个问题呢？
或者说改变顶点位置是否有其他方法而可不用setposition方法?
再次感谢！

蓝桥玄霜 · 发表于 2012-10-6 10:27

经测试，并没有发现问题。

kugezai · 发表于 2012-10-6 10:32

蓝桥玄霜发表于 2012-10-6 10:27
经测试，并没有发现问题。

感谢蓝版，是不是office版本的事？我这是2007，还是要另外引用其他工程库？

蓝桥玄霜 · 发表于 2012-10-6 12:38

没有引用其他工程库，附件是03版本的。

dwchung · 发表于 2018-9-1 11:13

请问在2007版以上怎么用？

		自动登录	找回密码
密码			免费注册

[求助] 用Shapes的SetPosition方法出现错误:指定的值超出了范围