VFP 控制 Excel 在指定位置插入图片

Excel问题 | 2015-04-26 11:33:20 | 阅读 3503 次 | 评论(0)


oExcel=CreateObject('Excel.Application')
With oExcel
    .Workbooks.Add
    .SheetsInNewWorkBook=1
    .Sheets(1).Cells(2,5).Select
    .ActiveSheet.Pictures.Insert("F:\第五十组MIS设计报告\1-110Q0130GD10.jpg").Select
    .Selection.ShapeRange.LockAspectRatio =.T. 
    .ActiveSheet.Columns(5).ColumnWidth=500/6.06 && 像素宽度与6.06的比值为列宽,同理可以设置行高
    .ActiveWorkBook.SaveAs("D:\群问题\Aa.Xls")
*    .Visible=.T.
    .Quit
EndWith
RELEASE oExcel

文章评论,共0条
游客请输入验证码
浏览264942次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...