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

#2

sdta2022-05-03 15:13

https://bbs.bccn.net/viewthread.php?tid=497368&highlight=EXCEL%2B%CD%BC%C6%AC
是不是你要的结果

#3

liunis2022-05-03 17:52

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

#4

zhken2022-05-04 21:17

直接写好像不行

#5

sych2022-05-05 11:36

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

#6

liunis2022-05-05 17:46

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

#7

sych2022-05-06 10:38

你手工制作的文件发个上来

#8

liunis2022-05-06 16:46

回复 7楼 sych

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

只有本站会员才能查看附件，请登录

#9

liunis2022-05-06 16:48

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

#10

sych2022-05-06 16:50

你原来的是在WPS里，不是excel,已经是两个不同的软件啦

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2022-5-6 17:02编辑过]

#11

sych2022-05-06 17:07

至于图片会变动的问题，是你自己设置的问题，把图片的大小设置为合适的大小就不会出现你所说的问题，我上面的代码添加的图片没发现会变化的问题

#12

liunis2022-05-06 17:24

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

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

#13

sych2022-05-06 17:29

只有本站会员才能查看附件，请登录

举一反三，你是不学不看不思考

#14

liunis2022-05-06 17:37

回复 13楼 sych

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

#15

吹水佬2022-05-06 19:28

以下是引用liunis在2022-5-6 17:37:51的发言：

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

Placement 是什么对象的属性?

#16

liunis2022-05-06 20:37

回复 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

#17

吹水佬2022-05-06 21:09

WITH myexcel
WITH .ActiveSheet.Pictures.Insert(mpicture)
.Placement = 1
这样子：
myexcel.ActiveSheet.Pictures.Insert(mpicture).Placement = 1
可以吗?

#18

liunis2022-05-06 21:27

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

#19

schtg2022-05-07 05:09

回复 18楼 liunis

将
myexcel.ActiveSheet.Range("C3").ShapeRange.SELECT
改为
myexcel.ActiveSheet.Shapes("Picture 1").Select
试一试，不知是否是这个意思？

#20

schtg2022-05-07 05:12

回复 16楼 liunis

在win7 vfp9下运行，顺利完成，没有出现错误？

#21

sych2022-05-07 09:01

答案就在这第2页，仔细看看吧

#22

sdta2022-05-08 20:59

楼主现在使用的EXCEL是什么版本的

#23

liunis2022-05-08 21:48

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

#24

sdta2022-05-08 21:57

以下是引用liunis在2022-5-3 17:52:04的发言：

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

我用的是EXCEL2007,没有你说的功能

只有本站会员才能查看附件，请登录

#25

liunis2022-05-08 22:14

EXCEL2007 还真没有，我系统里有excel2007，现在才看到是自动安装了WPS 一样是ExCEL文档，没有去注意，这个乌龙

WPS竟有这个功能

只有本站会员才能查看附件，请登录

#26

sdta2022-05-08 22:24

设置工作表保护，可以达到楼主需要的效果
如果要修改工作表中的数据，要撤销工作表保护，比较麻烦。

[此贴子已经被作者于2022-5-8 22:26编辑过]

#27

liunis2022-05-08 23:31

好的，還请教一個问題，就是在Excel预览打印時，printpreview, vfp要等這个页面关了才正常，不然就会出現切换到這个提示页面，有時excel导出数据沒导完時，点击vfp頁面也会有這个問題。就是说有什麼方法不用等待

#28

sdta2022-05-09 19:28

没遇到楼主所说的问题