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
===============
上面是一个录制的宏,你想要实现什么,先录个宏,再看它的代码,基本上都可以解决的^*^
'
' addpic Macro
' 宏在 01-8-28 由 gmc 录制
'
Selection.InlineShapes.AddPicture FileName:= _
"C:\My Documents\My Pictures\1.gif", LinkToFile:=False, SaveWithDocument _
:=True
End Sub
===============
上面是一个录制的宏,你想要实现什么,先录个宏,再看它的代码,基本上都可以解决的^*^
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货