在Excel中更改图形

Question

我有一张带有图片的Excelfile。

现在我想用VB改变图片。我该怎么做呢？ 我用

试了一下

Dim anwendung As Excel.Application = New Excel.Application
Dim wbk As Excel.Workbook = anwendung.Workbooks.Open(Application.StartupPath + "\Ausgaben\Ausgabe.xls")


Dim wks As Excel.Worksheet = wbk.Worksheets("Kennzahlen")
wks.Shapes(1).Picture = LoadPicture(Application.StartupPath + "\Ausgaben\Leistungsdiagramm.tif")

但他不知道LoadPicture-Method ...... Thx提前！

Answer 1

使用Shape对象（Rectangular）代替图片对象，并使用此代码：

 Sheets(1).Shapes(1).Fill.UserPicture ("e:\0\a\untitled.png")

因为LoadPictuer只加载BMP文件。