请问Vfp将图片嵌入excel单元格怎样写 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请问Vfp将图片嵌入excel单元格怎样写

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2440 人关注过本帖， 1 人收藏

标题：请问Vfp将图片嵌入excel单元格怎样写

取消只看楼主加入收藏

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25
结帖率：87.8%

楼主

已结贴√ 问题点数：10 回复次数：11

请问Vfp将图片嵌入excel单元格怎样写

请问Vfp将图片嵌入excel单元格怎样写，并加上超链接

搜索更多相关主题的帖子: Vfp　excel　嵌入　图片　单元格　

2022-05-03 13:38

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 2 楼

得分:0

不是。图片是要嵌在单元格的，在Excel表里对图片右键，有一个选项嵌入单元格

2022-05-03 17:52

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 3 楼

得分:0

谢了，这个操作，比以前好用一些，图片还是浮于单元格上面，跟平时插入图片到EXCEL表里区别不是太大，当你在这一行图片往后插入一单元格时，这个图片就会变形，拉伸到2个单元格这么大，鼠标可以拖走。在EXCEL里在图片上右键时，会有一个嵌入单元格，嵌入后，图片拖不走，对于各种操作，图片不变形不走位

2022-05-05 17:46

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 4 楼

得分:0

回复 7楼 sych

感谢。由于文件要发给人增加信息，在文件上增行会引起拉伸。左右是程序生成的会。右边是手工嵌入的不会

图片.zip (397.21 KB)

2022-05-06 16:46

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 5 楼

得分:0

就是直接将图片嵌入要怎么写

2022-05-06 16:48

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 6 楼

得分:0

好的谢谢下面的要怎样写开来，

mpicture="D:\2008nl\9.JPG"
myexcel=newobject("EXCEL.application")
WITH myexcel
    .visible=.t.
    .workbooks.add
    .Range("C3").select
    cellW = .ActiveCell.Width
    cellH = .ActiveCell.Height
    WITH .ActiveSheet.Pictures.Insert(mpicture)
        .Placement = 1
        WITH .ShapeRange
            .LockAspectRatio = 0
            .Width=cellw
            .Height=cellh
        ENDWITH
    ENDWITH
ENDWITH

写成

myexcel=newobject("EXCEL.application")
myexcel.visible=.t.
myexcel.workbooks.add
myexcel.Range("C3").select
    cellW = myexcel.ActiveCell.Width
    cellH = myexcel.ActiveCell.Height
myexcel.ActiveSheet.Pictures.Insert(mpicture)

接下去就写不对了，要怎样才能写开来
        .Placement = 1
        WITH .ShapeRange
            .LockAspectRatio = 0
            .Width=cellw
            .Height=cellh
        ENDWITH
    ENDWITH
ENDWITH

2022-05-06 17:24

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 7 楼

得分:0

回复 13楼 sych

.Placement = 1 就这一句总写不对

2022-05-06 17:37

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 8 楼

得分:0

回复 15楼吹水佬

mpicture="D:\2008nl\9.JPG"
myexcel=newobject("EXCEL.application")
WITH myexcel
    .visible=.t.
    .workbooks.add
    .Range("C3").select
    cellW = .ActiveCell.Width
    cellH = .ActiveCell.Height
    WITH .ActiveSheet.Pictures.Insert(mpicture)
        .Placement = 1    &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
        WITH .ShapeRange
            .LockAspectRatio = 0
            .Width=cellw
            .Height=cellh
        ENDWITH
    ENDWITH
ENDWITH

2022-05-06 20:37

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 9 楼

得分:0

mpicture="H:\1.JPG" &&
myexcel=newobject("EXCEL.application")
myexcel.visible=.t.
myexcel.workbooks.add
myexcel.Range("C3").select
cellW = myexcel.ActiveCell.Width
cellH = myexcel.ActiveCell.Height
myexcel.ActiveSheet.Pictures.Insert(mpicture).Placement = 1 &&这句可以

*后面又不通了
myexcel.ActiveSheet.Range("C3").ShapeRange.SELECT
myexcel.Selection.ShapeRange.LockAspectRatio =0
myexcel.Selection.ShapeRange.Width=cellw
myexcel.Selection.ShapeRange.Height=cellh

2022-05-06 21:27

liunis

等　级：新手上路
帖　子：142
专家分：7
注　册：2021-9-25

第 10 楼

得分:0

2007。看能否嵌入單元格图片，图片不能拖动

2022-05-08 21:48

快速回复：请问Vfp将图片嵌入excel单元格怎样写