VFP C++编译软件 & VFP Advanced VFP C++编译软件 & VFP Advanced VFP C++编译软件 & VFP Advanced VFP C++编译软件 & VFP Advanced
  • 1364阅读
  • 1回复

VFP中控制WORD图片大小 [复制链接]

上一主题 下一主题
 

发帖
573
浏览券
1647
威望
17
贡献值
311
下载币
1051
只看楼主 倒序阅读 使用道具 楼主  发表于: 2006-07-26

lcFileName=GETPICT()
IF !FILE(lcFileName)
   MESSAGEBOX(\"请选择图片文件\")
   RETURN
ENDIF
***请修改测试图片位置
oword=createobject(\"word.application\")
oword.Visible=.t.
oword.Documents.add
oword.Selection.InlineShapes.AddPicture( \"D:\\My Documents\\My Pictures\\图1.JPG\",.f.,.t.)
?\"文档中的图片个数:\",oword.Documents(1).InlineShapes.Count      &&文档中图片个数
***按比例设置显示
oword.Documents(1).InlineShapes(1).ScaleWidth=50     &&图片显示宽比例
oword.Documents(1).InlineShapes(1).ScaleHeight=50    &&图片显示高比例
MESSAGEBOX(\"看一下WORD中的图片,是按 50%显示的\",0+32,\'test\',3000)
***按像素设置显示
oword.Documents(1).InlineShapes(1).Height=50
oword.Documents(1).InlineShapes(1).Height=100

MESSAGEBOX(\"看一下WORD中的图片,是按 50 x 100显示的\",0+32,\'test\',3000)
oword.ActiveDocument.SaveAs(\"c:\\cxx.doc\")
MESSAGEBOX(\"文档保存完毕\")
RELEASE oword

http://vfp9.8j.cn/user2/vfp9/index.html

[此贴子已经被作者于2006-7-26 1:46:03编辑过]

发帖
1597
浏览券
93
威望
47
贡献值
0
下载币
150
只看该作者 沙发  发表于: 2006-07-26
如何控制文本框中图片的大小?
快速回复
限100 字节
批量上传需要先选择文件,再选择上传
 
上一个 下一个