[已解决]不能取得类pictrure的insert属性

raulerini

同一段插入图片的程序，在excel2003下运行正常，但在excel2007下却报错，

错误语句：

ActiveSheet.Pictures.Insert(mystr)

错误类型：不能取得类pictrure的insert属性

？？不明白，为什么在excel2003下会运行正常，到了2007却不行了。

我在worksheet的属性/方法列表下也没有看到有picture的对象？为什么？

最佳答案

月排行榜 / 总排行榜

吕?布

2010-11-18 14:03

To work around this issue, code the VBA macro to insert the picture as a picture fill in a shape such as a rectangle.

跳转到最佳答案楼层

raulerini

不能取得类pictrure的insert属性

爱疯

Sub Macro1()
'
' Macro1 Macro
' 宏由 aaaaa 录制，时间: 2010-11-18
'

'
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\All Users\Documents\My Pictures\示例图片\Blue hills.jpg" _
        ).Select
    Range("B16").Select
End Sub

录制的宏：插入一个图片

03和07，都可以运行。

 

[em09]

raulerini

2007下录制插入图片的宏

 

结果什么都没有得到

 

 

不能取得类pictrure的insert属性

 

2003下就有。。为什么啊？？

 

不能取得类pictrure的insert属性

爱疯

的确如此，比如单元格查找，也是03有07无

3楼可证明ActiveSheet.Pictures.Insert(mystr)，适用03/07。

毛病出在别处吧

[em04]

raulerini

我又测试了一下。

还是在2007下行不通

莫非是不能插入网络图片的原因？

爱疯你帮我测试下这段代码，在2003和2007下的运行情况。

Sub aa()
ActiveSheet.Pictures.Insert ("http://www.excelpx.com/uploadface/98120_201042718474153782.bmp")
End Sub

爱疯

Excel 2007 开发人员参考 > 2007 Microsoft Office System 对象库参考

这里没有picture和pictures，不知有没有关系

[em09]

吕?布

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 40, 80, 140, 50).Fill.UserPicture "http://www.excelpx.com/uploadface/98120_201042718474153782.bmp"

吕?布

微软解释，http://support.microsoft.com/kb/928983/en-us

raulerini

只能用先插入矩形再填充的方法来曲线求解了哦？