请教各位前辈利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教各位前辈利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？

此主题相关图片如下：1.png

想在第二支部名称（盖章）这个红色区域内加盖支部印章可以用什么办法实现呢？

在模板中预先做好印章不行吗

以下是引用xxfoxtable在2020/12/31 9:07:00的发言：
难做，不透明

把图片的白色背景改为透明色，然后保存为png格式图片使用即可

打印指定的图片文件，文件事先复制到Images或Attachments目录下，则只需指定文件名，例如：

[&&Denmark.png,48,48]

否则需要包括路径，例如：

[&&c:\data\Denmark.png,48,48]

上述是帮助里的引用图片方法可以实现图片的直接显示

但是一般传统的电子印章都是加盖在文字上面的老师有没有办法实现电子印章图片是加盖在支部名称年月日那红色框对应的对顶层呢也就是先签字了后盖章的效果

图片点击可在新窗口打开查看此主题相关图片如下：3.png

试过方法：

按照论坛里面的提示做一个表框但是表框无法做到顶部底部显示实现不了印章是加盖在文字上的感觉

[此贴子已经被作者于2020/12/31 12:14:58编辑过]

这样的话会造成非授权的空白文书印章了

试试：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=144070&replyID=43381&skin=1

参照老师提供的EXCEL模板vba插入图片的方式

使用vba添加图片

Dim App As New MSExcel.Application

Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("E:\问题\123.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

ws.Shapes.AddPicture("E:\问题\1.png", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,0, 10, 100, 80)

ws.Shapes.AddPicture("E:\问题\abc.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,0, 100, 100, 80)

app.visible = True

语法

ws.Shapes.AddPicture("文件路径", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,插入点左边距, 插入点上边距, 图片宽,图片高)

怎么实现在word文件中VBA在指定的位置插入图片呢？并设置图片位于文字上方呢？

Dim App As New MSWord.Application

App.Documents.Open("C:\Users\Administrator\Desktop\公文助手20201224\Reports\1.doc")

App.Application.Selection.InlineShapes.AddPicture("C:\Users\Administrator\Desktop\dzyz\电子印章\Attachments\电子印章.jpg")

app.visible = True

上述代码实现了在word中添加图片，位置是随机的没有指定位置也没有设置图片位于文字上方【怎么修正呢？】

App.Application.Selection.InlineShapes.AddPicture("C:\Users\Administrator\Desktop\dzyz\电子印章\Attachments\电子印章.jpg", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoTrue,0, 100, 100, 80)

这样的代码会报错提示传入参数过多

此主题相关图片如下：1.png

[此贴子已经被作者于2020/12/31 15:10:43编辑过]

用法差不多

Dim fileName = "e:\问题\abc.docx"

Dim doc As object = app.Documents.Open(fileName)

Dim s = doc.Shapes.AddPicture(img, False, True, 插入点左边距, 插入点上边距, 图片宽,图片高)

s.WrapFormat.Type = MSWord.WdWrapType.wdWrapFront

主题：请教各位前辈 利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？

主题：请教各位前辈利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？