Sub addpic()
'
' addpic Macro
' 宏在 01-8-28 由 gmc 录制
'
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\My Documents\My Pictures\1.gif", LinkToFile:=False, SaveWithDocument _
        :=True
End Sub
===============
上面是一个录制的宏,你想要实现什么,先录个宏,再看它的代码,基本上都可以解决的^*^