Excel 可以用vba代码实现“更改图片”吗

右键单击工作表标签，选择查看代码，输入如下代码：

sub 保存历史数据()     dim irow as integer     dim i as integer     dim ibook as workbook     dim isht as worksheet     on error resume next     set ibook = getobject("f:\历史数据.xls")     '假设保存到历史数据sheet1工作表中，若不是修改下句代码中的sheet1为对应工作表名称。     set isht = ibook.sheets("sheet1")     with isht     i = .range("a65536").end(xlup).row + 1     .range("a" & i) = "'" & worksheetfunction.text(i - 1, "00000")     .range("b" & i) = "'" & worksheetfunction.text(date, "yyy-mm-dd")     .range("c" & i) = worksheetfunction.text(time, "hh:mm:ss")     .range("d" & i) = range("k3")     .range("e" & i) = range("k4")     .range("f" & i) = range("n4")     .range("g" & i) = range("n4")     .range("h" & i) = range("k5")     .range("i" & i) = range("k6")     end with     ibook.windows(1).viluosible = true     ibook.save     ibook.close end sub

插入窗体控件按钮，更改显示名字为“保存”，指定宏“保存历史数据”。需要时，单击“保存”按钮即可。