如何在excel中粘贴图片?
部分代码如下
With frmIntertech
'*************************************************************
'Exel 打开
'*************************************************************
.XlsReport1.FileName = FilePath
.XlsReport1.Start.File
.XlsReport1.Page.Begin "sheet", 1
Call Billing_Preparation
'*************************************************************
'Exel 关闭
'*************************************************************
.XlsReport1.Page.End
.XlsReport1.Out.PreView
.XlsReport1.Out.DoPrint "sheet"
End With
Public Sub Billing_Preparation()
With frmIntertech.XlsReport1
If InpBuf.FileName1 = "" Then Exit Sub
If InpBuf.Pic1 = "" Then
.Cell("**Pic1").Canvas.Draw frmIntertech.IkDisp(1)
Else
.Cell("**Pic1").value = “c:\1.bmp”
end if
.Cell("**FileName1").value = InpBuf.FileName1
End With
End Sub
主要是这一句话
.Cell("**Pic1").value = “c:\1.bmp”
应该是别的方法来实现吧