VB如何将picturebox中生成的图片插入到word报告的指定位置

作者&投稿:尹叙 (若有异议请与网页底部的电邮联系)
请教:VB如何将picturebox中生成的图片插入到word报告的指定位置~


已经帮你解决了

Picture1.CurrentX = 0 ‘水平坐标Picture1.CurrentY = 0’垂直坐标Picture1.FontSize = 20 ‘字体大小Picture1.Print "hello word" '输出文字

doc.Shapes.AddPicture App.Path & "\位移.jpg", False, True, 0, 120, 450, 200
后面的数字分别代表图片在word中的位置的左、高,以及图片自身的长度和高度

'替换图片
Sub pic(ByVal img As Image, ByVal czp As String)
Clipboard.Clear() '清空剪贴板
Clipboard.SetImage(img) '把PictureBox1.Image图片放到剪贴板
WDAPP.Selection.Find.ClearFormatting()
WDAPP.Selection.Find.Replacement.ClearFormatting()
With WDAPP.Selection.Find
.Text = czp '要替换的字符
.Replacement.Text = "^c" '替换成PictureBox1.Image里的图片
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
WDAPP.Selection.Find.Execute(Replace:=2)
End Sub

我想我可以做一个例子给你。


...中下拉的不同选项来改变下面的picturebox里的图片。。pictu...
下拉里选 change事件是不起作用的 先把combo1.style设为2 combo1的list里放图片的路径 然后在combo1的Click事件里加代码 picturebox1.picture=loadpicture(combo1.text)

如何用VB来读取DPI
最后面的一个 download 下载个, 然后用注册下 vdll文件。 注册方法是 运行dll 文件 用 c:\/windows\/system32\/regsvr32.exe打开一次就好了 若做发布软件 可以把dll 文件放在你的发布程序下 用VB调用 regsvr32注册就可以啦 加命令:Shell "regsvr32.exe \/s wiaaut.dll"...

我要四驱兄弟小烈的照片.
http:\/\/www.4wdv.com\/pictu\/f012.jpghttp:\/\/202.101.235.102:8080\/1\/2006-1-27\/20060127135754677918.jpghttp:\/\/202.101.235.102:8080\/1\/2006-1-27\/20060127140609467612.jpghttp:\/\/202.101.235.102:8080\/1\/2006-1-27\/20060127140539427018.jpghttp:\/\/202.101.235.102:8080\/1\/2006-1-27\/...

sql中级联删除,级联更新是怎么理解的?
将Delete Rule 和 Update Rule 改为cascade即可。或者直接写SQL语句也可以,在外键关系声明的后面加上 ON UPDATE CASCADE ON DELETE CASCADE 即可。如:alter table SZ_Picture add constraint FK_SZ_PICTU_RELATIONS_SZ_PICTU foreign key (pictureTypeId)references SZ_PictureType (pictureTypeId)on upda...

C#如何将数据库中的image转换为图片格式
private void showimage(){ if this.pictuebox1.image!=null this.picturebox1.image.disprose();else int i= this.bindingcontext[dataset,table].position();byte[] bb=(byte[]) dataset.table["image"].rows[i][1]merrystream m= new merrystream(bb)bitmp b= new bitemp(m)this....

SQL表与表之间建立外键约束之后,怎么建立连级更新和删除?
两种方法,一种是sql语句,一种是用图形界面操作。sql语句写法:alter table SZ_Pictureadd constraint FK_SZ_PICTU_RELATIONS_SZ_PICTU foreign key (pictureTypeId)references SZ_PictureType (pictureTypeId)on update cascade on delete cascade;其中on update cascade on delete cascade代表级联更新和级联...

求初中英语阅读理解题库
6. The first photo taken by Niepce was a picturte of ___ A. his business B. his house C. his garden D. his window 7. The Daguerrotype was___. <\/P< p> A. a Frenchman B. a kind of picture C. a kind of camera D. a photographer 8. If a photographer wanted to take ...

求30篇初中英语阅读理解
6. The first photo taken by Niepce was a picturte of ___ A. his business B. his house C. his garden D. his window 7. The Daguerrotype was___. <\/P< p> A. a Frenchman B. a kind of picture C. a kind of camera D. a photographer 8. If a photographer wanted to take ...

八年级英语阅读理解30篇
6. The first photo taken by Niepce was a picturte of ___ A. his business B. his house C. his garden D. his window 7. The Daguerrotype was___. <\/P< p> A. a Frenchman B. a kind of picture C. a kind of camera D. a photographer 8. If a photographer wanted to take ...

五篇初中英语阅读理解题!!!急求!!!
6. The first photo taken by Niepce was a picturte of ___ A. his business B. his house C. his garden D. his window 7. The Daguerrotype was___. <\/P< p> A. a Frenchman B. a kind of picture C. a kind of camera D. a photographer 8. If a photographer wanted to take ...

建瓯市13935036422: vb如何从一个程序中提出picturebox里的数据 -
谭刚妇炎: 你在第一步生成矩阵的时候,就把矩阵里的数都赋值给一个数组 第二部查找最小值的时候,把数组里的值比较,然后放在picture2里

建瓯市13935036422: vb中怎么能使picturebox 里显示文本??? -
谭刚妇炎: 最简单 使用控件的print方法就可以了 例如如picture1.print "文本",但是控制不了文本的位置 最好是使用API函数textout 方法 textout 句柄,x,y,文本,长度(英文1个汉字2个) 例如 textout picture1.hdc,0,0,"文本",4

建瓯市13935036422: 在VB中怎样将PictureBox内显示的内容(包括里边的控件)保存为图片文件? -
谭刚妇炎: Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal ...

建瓯市13935036422: VB中怎样在picturebox 中输入文字 -
谭刚妇炎: Picture1.Print:Picture1.Print "VB中怎样在picturebox 中输入文字"

建瓯市13935036422: vb中如何在picturebox中加点 -
谭刚妇炎: 比如,你的PictureBox 是 Picture1 那么将他的AutoRedraw属性设置为True,ScaleMode设置为3(也可以用代码设置为vbPixels) 然后在画点的地方加代码 Picture1.PSet (X,Y),Color X是水平左边距,Y是垂直距离,Color是颜色值,可以用RGB函数,也可以用常量,如 Picture1.PSet (100,100),vbRed '在(100,100)画一个红点 Picture1.PSet (102,102),RGB(0,255,0) '在(102,102)画一个绿点

建瓯市13935036422: VB中,如何在PictureBox中写字 -
谭刚妇炎: PictureBox.print "字字字字字字"

建瓯市13935036422: VB 选中PictureBox -
谭刚妇炎: form是无法触发 Form_KeyDown事件的!换成Picture1就好了!为了执行picture2的功能,楼主应逆向思维将picture1和picture2的外观及位置掉包,注意使用autosize,并且新建一个文本变量picstr储存图片路径,picstr=picture2.Picture:picture2....

建瓯市13935036422: vb中如何在picturebox中写点的代码?然后把像素值赋给各点,显示出整个图像.是不是需要建立坐标系? -
谭刚妇炎: '给你一个简单的例子,新建工程后在窗体上插入一个picture1的控件,和一个command1的控件 '例子中可以显示坐标系,如不需要显示删除那一段代码即可 Private Sub Command1_Click()'绘制f(x)=8*sin(x)正弦波 Picture1.DrawWidth = 2 '...

建瓯市13935036422: VB 利用鼠标框选图片并按比例放大居中显示在picturebox控件中 -
谭刚妇炎: 说一下基本思路吧 1)记录你点下→拖动→释放鼠标产生的方框的width、height; 2)picturebox有一个扩展属性,把它设成自由扩展的(也是自由缩放的); 3)计算你的方框与图的比例,再缩放缩放图的大小,让其大小与picturebox的比例等于框在原图中的比例,意思是让picturebox在缩放后的图中变成你原图中的框.

建瓯市13935036422: VB中如何利用 图形框(PictureBox)输出数值和字符串
谭刚妇炎: 和窗体输出类似,就是在print前加上picturebox的控件名 比如: Picture1.Print 123

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网