Set myxls = CreateObject("Excel.Application")
    myxls.Visible = True
    myxls.Workbooks.Open App.Path & "\Template.xls"    myxls.ActiveSheet.Range(A3).Select '选定单元格
    
    With myxls.ActiveSheet.Pictures.Insert(C:\Pic.jpg) '插入到选定的单元格中
        .Width = 150
        .Height = 200
    End With测试环境:
XP + Office 2003
XP + Office 2007Office 2003中没有问题,Office 2007中,不能对应到指定单元格,会错位。
Office 模板是100%显示比例还有使用worksheet.shapes.addpicture方法只能指定坐标,我需要的是指定单元格。求助各位达人,在线等候

解决方案 »

  1.   

    Office 2003效果是这样的,OK!
    Office 2007位置就不对了。?
      

  2.   

    使用Excel2010未出现楼主所说的问题:Sub Pic()
        ActiveSheet.[C5].Activate
        With ActiveSheet.Pictures.Insert("C:\Pic.jpg")
            .Width = 150
            .Height = 200
        End With
    End Sub
      

  3.   

    nxslwh:我那段代码是VB6的代码
    alzeng:谢谢你的测试,我去下载Office2010去测试下目前要解决的是Office2007,手动加入图片,图片贴在选定的单元格,而用代码加入图片,图片就贴在已选定的单元格,郁闷了一星期!!!
      

  4.   


    目前要解决的是Office2007,手动加入图片,图片贴在选定的单元格,而用代码加入图片,图片就不会贴在已选定的单元格,郁闷了一星期!!!
      

  5.   

    本帖最后由 bcrun 于 2011-01-06 11:32:40 编辑
      

  6.   

    我现在也用 Office 2007  。同样的问题。求解啊??
      

  7.   

    本帖最后由 bcrun 于 2012-09-28 14:24:47 编辑