VB.NET里怎样把Image对象嵌入Word文档里作为图片?
- 内容介绍
- 文章标签
- 相关推荐
本文共计433个文字,预计阅读时间需要2分钟。
我拥有这个功能,可以生成并返回我的图像(.bmp格式)。我想把它写成Word文档。我查看了`InlineShapes.AddPicture`,但这个方法只需要一个字符串参数,这意味着我需要在物理上保存这张图片,然后将图片的路径作为参数传入。
所以我有这个功能,我生成并返回我的图像(.bmp格式).我想把它写成word文档.我查看了InlineShapes.AddPicture,但它只需要一个字符串参数,这需要我在物理上保存图片,然后将图片的路径作为参数添加到AddPicture中,这是我不想要的.我想生成pic并直接存储它,而我需要一个采用 Image参数的方法.附:创建Word文档,表格,决定将图片放入哪个单元格并完成所有这些工作,我只需要插入图片.
这是生成图片的代码,因此您可以看到我只将其作为对象,但不要将其存储在物理上的任何位置.这是在C#中,但是我想用Word文档操作,我用VB.NET编写.
Bitmap picture = new Bitmap(100, 100); // generates a QRcode image and returns it public Image generateQRcodeImage(string textValue) { QrEncoder encoder = new QrEncoder(ErrorCorrectionLevel.M); QrCode qrCode; encoder.TryEncode(textValue, out qrCode); using (Graphics graph = Graphics.FromImage(picture)) { new GraphicsRenderer(new FixedCodeSize(100, QuietZoneModules.Two)).Draw(graph, qrCode.Matrix); } return picture; } 如果您已经设置了Word文档的创建和打开,并根据您提供的功能,我认为您唯一要做的就是:
Dim rng As Word.Range = oDoc.Range(int1, int2) Dim img As Image = qrGen.generateQRcodeImage("desiredInfoToEncloseInQRcode") Clipboard.SetImage(img) rng.Paste()
其中qrGen当然是实现generateQRcodeImage()函数的类的对象.而且您还必须将此代码放在您想要在word文档(表格/单元格等)中进行排列的位置.
本文共计433个文字,预计阅读时间需要2分钟。
我拥有这个功能,可以生成并返回我的图像(.bmp格式)。我想把它写成Word文档。我查看了`InlineShapes.AddPicture`,但这个方法只需要一个字符串参数,这意味着我需要在物理上保存这张图片,然后将图片的路径作为参数传入。
所以我有这个功能,我生成并返回我的图像(.bmp格式).我想把它写成word文档.我查看了InlineShapes.AddPicture,但它只需要一个字符串参数,这需要我在物理上保存图片,然后将图片的路径作为参数添加到AddPicture中,这是我不想要的.我想生成pic并直接存储它,而我需要一个采用 Image参数的方法.附:创建Word文档,表格,决定将图片放入哪个单元格并完成所有这些工作,我只需要插入图片.
这是生成图片的代码,因此您可以看到我只将其作为对象,但不要将其存储在物理上的任何位置.这是在C#中,但是我想用Word文档操作,我用VB.NET编写.
Bitmap picture = new Bitmap(100, 100); // generates a QRcode image and returns it public Image generateQRcodeImage(string textValue) { QrEncoder encoder = new QrEncoder(ErrorCorrectionLevel.M); QrCode qrCode; encoder.TryEncode(textValue, out qrCode); using (Graphics graph = Graphics.FromImage(picture)) { new GraphicsRenderer(new FixedCodeSize(100, QuietZoneModules.Two)).Draw(graph, qrCode.Matrix); } return picture; } 如果您已经设置了Word文档的创建和打开,并根据您提供的功能,我认为您唯一要做的就是:
Dim rng As Word.Range = oDoc.Range(int1, int2) Dim img As Image = qrGen.generateQRcodeImage("desiredInfoToEncloseInQRcode") Clipboard.SetImage(img) rng.Paste()
其中qrGen当然是实现generateQRcodeImage()函数的类的对象.而且您还必须将此代码放在您想要在word文档(表格/单元格等)中进行排列的位置.

