请教各位VB大虾,如何在VB中插入图片并使其最大化?
答案补充:Set worddoc = newword.Documents.Add With worddoc .Shapes.AddPicture "c:\123.bmp", , , , , Application.ActiveWindow.ActivePane.Pages(1).Width End With===================页边距之内?是不是页宽? 代码改为 Shapes.AddPicture "d:\123.bmp", , , , , Application.ActiveWindow.ActivePane.Pages(1).Width
vb.net 如何在word文档的指定位置插入图片
Option ExplicitDim ap As Word.Application, s As String, doc As DocumentPrivate Sub Command1_Click()Set ap = CreateObject("word.application")Set doc = ap.Documents.Open("d:\1.doc")s = doc.Content.TextPrint sEnd SubPrivate Sub Form_Unload(Cancel As Integer)doc.Closeap.QuitSet doc = NothingSet ap = NothingEnd Sub
VB 怎么把richtextbox中的文字和图片一起添加到WORD中
VB中插入加载图片步骤:1、打开VB,建立标准EXE。
2、建立一个图像框,名字改为p1,建立一个命令按钮。
3、双击命令按钮,进入代码编辑器,p1.Picture = LoadPicture("D:\My Documents\新建文件夹 (2)\1.jpg")4、点击运行。
5、点击命令按钮,图片显示出来了。
怎么用vb把图形控件里的图片输出到word,输出文字我可以了,就是在...
先要引用Microsoft Word 12.0 Object,具体版本看你组的哪个officeDim wApp As Word.ApplicationDim wDoc As Word.DocumentSet wApp = New Word.ApplicationSet wDoc = wApp.Documents.Open(cDocName)上面是定义和打开Word文件wDoc.Shapes(i).TextFrame.TextRange.Text = Trim(Text5.Text)这个是赋值在那个打开的word文档中,我预先加入了许多文本框,上面是给其中某个文本框赋值wDoc.SaveAs tmpNamewDoc.ClosewApp.QuitSet wApp = Nothing具体可以看这个帖子http://bbs.csdn.net/topics/340075842
如何在VB中插入截图的图片
有三种方法:1、添加一个picturebox或imagebox,在属性窗口中选择picture属性,然后就可以添加图片了,这是最简单的一种;2、第二种是代码加入:Option ExplicitPrivate Sub Form_Load()Me.Picture = LoadPicture("c:\text.bmp") 'c:\text.bmp为图片路径End Sub3、第三种是通过剪贴板加入,这种比较复杂,如:Option ExplicitPrivate Sub Form_Load()Clipboard.SetData Picture1.ImageEnd Sub
转载请注明出处51数据库 » vb向word中插入图片