excel2000,2003的VBA输出表格,照片位置正确,但用excel2007的vba,照片放不到表格的《照片》单元格怎么解决
浙江-梅子:
cPicRange=&&放置图片的单元格
oXls.Range(cPicRange).Select
oXls.ActiveSheet.Pictures.Insert(cReportPath+gcBarcodepic).Select
target = oXls.Range(cPicRange)
WITH oXls.Selection
.ShapeRange.LockAspectRatio = .F. &&锁定纵横比
.Top = target.Top + 1
.Left = target.Left + 1
.Width = target.Width - 2
.Height = target.Height - 2
EndWith
cPicRange=&&放置图片的单元格
oXls.Range(cPicRange).Select
oXls.ActiveSheet.Pictures.Insert(cReportPath+gcBarcodepic).Select
target = oXls.Range(cPicRange)
WITH oXls.Selection
.ShapeRange.LockAspectRatio = .F. &&锁定纵横比
.Top = target.Top + 1
.Left = target.Left + 1
.Width = target.Width - 2
.Height = target.Height - 2
EndWith