如何批量替换文档中的图？

[GSDN]

如有一批文档（word,excel,powerpoint），如何替换里面的某个图，譬如公司logo等。

[northwolves]

如果都是文档的第一个图,可以用如下方式替换:

Sub Macro1()
Selection.GoTo What:=wdGoToGraphic, Which:=wdGoToFirst, Count:=1, Name:=""
Selection.InlineShapes.AddPicture FileName:="d:\mylogo2.gif", LinkToFile:=False, SaveWithDocument:=True
End Sub

[GSDN]

Thanks!