求代码通过OLE将图片插入到Excel中.
求代码通过OLE将图片插入到Excel中.
非常谢谢。
[解决办法]
ExcelSvr.ActiveSheet.Pictures.Insert( "YOURPICTURE").Select()
ExcelSvr.Selection.ShapeRange.IncrementLeft(86.25)
ExcelSvr.Selection.ShapeRange.IncrementTop(74.25)
如果你事先不知道每列宽度，可以用类似表达式取得（循环）或设置
ExcelSvr.Columns("E:E").ColumnWidth
ExcelSvr.Rows("4:4").RowHeight
改变图片大小（需要接在select后便）
ExcelSvr.Selection.ShapeRange.ScaleWidth(0.84, msoFalse, msoScaleFromTopLeft)
ExcelSvr.Selection.ShapeRange.ScaleHeight(0.62, msoFalse, msoScaleFromTopLeft)
百分比不是具体值
[解决办法]
// as_cell
// as_file图片名
//ai_left左边距离
//ai_top顶边距离
// 创 建: yxt
// 返 回 值: 无
//////////////////////////////////////////////////////////
if fileexists(as_file) then
objexcel.ActiveSheet.Range(as_cell).Select
ObjExcel.ActiveSheet.Pictures.Insert(as_file).Select
ObjExcel.Selection.ShapeRange.Left = ai_left
ObjExcel.Selection.ShapeRange.Top = ai_top
end if
