再问：如何向excel中插如图片？（高分酬谢）

[jobillcai]

不知道能不能在单员格中插入？上次朋友们给我出了写解方法，但是我不懂，
代码如下：
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Administrator\My Documents\My Pictures\样品.jpg").Select
Selection.ShapeRange.IncrementLeft 106.5
Selection.ShapeRange.IncrementTop 8.25
Selection.ShapeRange.IncrementLeft -6.75
Selection.ShapeRange.IncrementTop -3#
Range("H1844").Select
ActiveCell.FormulaR1C1 = ""
ActiveSheet.Shapes("Picture 1").Select
用在程序中没有什么反映，望帮忙谢谢~！

[孟子E章]

把路径换换看

C:\xxx.jpg

[jobillcai]

我换了，没有效果。
谁能在说说如何插入图片的问题，谢谢

[yc820220]

ActiveSheet.Shapes("Picture 1").Select
里的"Picture 1"
换一下试试

[wanghui0380]

Range("E11").Select
ActiveSheet.Pictures.Insert( "C:\Documents and Settings\Administrator.YYSERVER\My Documents\My Pictures\top.jpg" ).Select