关于WORD 插入图片 - 编程论坛

#2

吹水佬2023-04-27 16:44

设置光标位置

#3

liunis2023-04-27 16:51

回复 2楼吹水佬

谢谢.
Selection.Move(1,1)
设置后插入图片,再转化,图就移到顶上了

请教你的方法

#4

吹水佬2023-04-27 17:02

Move(1,1)是在第一个字符位置插入
“再转化”是什么动作？

#5

liunis2023-04-27 18:49

Selection.Move(1,1)
WOLE.Selection.InlineShapes.AddPicture('H:\123.JPG',.F.,.T.) &&在光标处插入
WOLE.Selection.InlineShapeS(1).ConvertToShape &&转化为SHAPE,此时位置变了，就是执行此语句后，图片的位置能否和插入是一致？或者移到页面上的某个字符，比如‘盖章’，放在盖章处，以达到电子章的效果

#6

吹水佬2023-04-27 20:09

直接找到页面指定位置插入就好了，为何要转来转去？

#7

liunis2023-04-27 20:17

因为要图片要达到浮动的效果，才能在什么什么公司上面，就像盖章一样。

#8

吹水佬2023-04-29 17:10

以下是引用liunis在2023-4-27 20:17:54的发言：

因为要图片要达到浮动的效果，才能在什么什么公司上面，就像盖章一样。

是不是这效果

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

程序代码：

word = CREATEOBJECT("Word.Application")
word.visible=.t.
doc = word.Documents.add
FOR i = 1 TO 9
    doc.Paragraphs.Add
    doc.Paragraphs.Add.Range.Text = REPLICATE(TRANSFORM(i),40)
ENDFOR
pic = "D:\temp\test\透明.png"
word.Selection.Move(1,90)
word.Selection.InlineShapes.AddPicture(pic).ConvertToShape.ZOrder(4)    && 4浮于文字，5沉于文字

#9

pvm20002023-04-30 03:37

以下是引用吹水佬在2023-4-29 17:10:57的发言：

是不是这效果

word = CREATEOBJECT("Word.Application")
word.visible=.t.
doc = word.Documents.add
FOR i = 1 TO 9
    doc.Paragraphs.Add
    doc.Paragraphs.Add.Range.Text = REPLICATE(TRANSFORM(i),40)
ENDFOR
pic = "D:\temp\test\透明.png"
word.Selection.Move(1,90)
word.Selection.InlineShapes.AddPicture(pic).ConvertToShape.ZOrder(4)    && 4浮于文字，5沉于文字

这个效果很好

#10

schtg2023-04-30 06:14

回复 8楼吹水佬

谢谢！

#11

独木星空2023-04-30 16:40

回复 8楼吹水佬

看来QQ上的照片，图片等插入文字的效果也是如此实现的。
在QQ相册中，新增，选择拍照，拍照后出来一些功能，其中，就有一个插入文字的功能，打上字，移动到适当位置，然后上传，出来的照片就有了文字，它是在图片上层，仅覆盖字所在的部分，其余部分是原照片的图案。