EXECL中如何插入图片

Question

高手赐教：
         EXECL中如何插入图片（用VBA代码）

Answer 1

Sub insertpic()
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\luoweixing\My Documents\My Pictures\DSC00097.JPG"). _
        Select
End Sub

Answer 2

回楼主，一般遇到这种使用菜单可以实现的功能，而自己又需要用VBA来实现的话，可以先用宏录制一个VBA，在修改其中一些信息就行了。

Answer 3

这是我刚刚录制的新宏，你可以参考异一下：
Option ExplicitSub 宏1()
''
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\Administrator\My Documents\My Pictures\027.jpg"). _
        Select
    ActiveWindow.ScrollRow = 251End Sub