当前位置:编程学习 > VB >>

关于插入图片到 Excel 2007 指定单元格!

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 2007

Office 2003中没有问题,Office 2007中,不能对应到指定单元格,会错位。
Office 模板是100%显示比例

还有使用worksheet.shapes.addpicture方法只能指定坐标,我需要的是指定单元格。

求助各位达人,在线等候。。。 --------------------编程问答-------------------- Office 2003效果是这样的,OK!


Office 2007位置就不对了。?
--------------------编程问答-------------------- 为何没人回复??? --------------------编程问答-------------------- 你确定那是2007的代码??我怎么看像2003呢?? --------------------编程问答-------------------- 使用Excel2010未出现楼主所说的问题:

Sub Pic()
    ActiveSheet.[C5].Activate
    With ActiveSheet.Pictures.Insert("C:\Pic.jpg")
        .Width = 150
        .Height = 200
    End With
End Sub
--------------------编程问答-------------------- nxslwh:我那段代码是VB6的代码
alzeng:谢谢你的测试,我去下载Office2010去测试下

目前要解决的是Office2007,手动加入图片,图片贴在选定的单元格,而用代码加入图片,图片就贴在已选定的单元格,郁闷了一星期!!! --------------------编程问答--------------------
目前要解决的是Office2007,手动加入图片,图片贴在选定的单元格,而用代码加入图片,图片就不会贴在已选定的单元格,郁闷了一星期!!! --------------------编程问答-------------------- 我碰到同样问题,请问您解决了吗? --------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- 求知道楼主问题最后解决了没 --------------------编程问答-------------------- 我现在也用 Office 2007  。同样的问题。求解啊?? --------------------编程问答--------------------
补充:VB ,  基础类
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,