- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教各位前辈 利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159575)
-- 发布时间：2020/12/30 22:01:00
-- 请教各位前辈 利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？
请教各位前辈 利用word模板并生成的Word文件中有没有办法在指定的位置加盖电子印章呢？
此主题相关图片如下：1.png
想在第二支部名称（盖章）这个红色区域内加盖支部印章 可以用什么办法实现呢？
-- 发布时间：2020/12/31 8:58:00
--
图片引用：http://www.foxtable.com/webhelp/topics/1300.htm
-- 发布时间：2020/12/31 9:07:00
--
难做，不透明
-- 发布时间：2020/12/31 9:37:00
--
在模板中预先做好印章不行吗
-- 发布时间：2020/12/31 10:08:00
--
以下是引用xxfoxtable在2020/12/31 9:07:00的发言：
难做，不透明
把图片的白色背景改为透明色，然后保存为png格式图片使用即可
难做，不透明
-- 发布时间：2020/12/31 12:03:00
-- 回复：（有点蓝）图片引用：http://www.foxtable.com/...
打印指定的图片文件，文件事先复制到Images或Attachments目录下，则只需指定文件名，例如：
[&&Denmark.png,48,48]
否则需要包括路径，例如：
[&&c:\\data\\Denmark.png,48,48]
上述是帮助里的引用 图片方法 可以实现图片的直接显示
但是一般传统的电子印章都是加盖在文字上面的 老师有没有办法实现电子印章图片是加盖在 支部名称 年月日 那红色框对应的对顶层呢 也就是先签字了后盖章的效果
此主题相关图片如下：3.png
试过方法：
按照论坛里面的提示 做一个表框 但是表框无法做到顶部底部显示 实现不了印章是加盖在文字上的感觉
[此贴子已经被作者于2020/12/31 12:14:58编辑过]
-- 发布时间：2020/12/31 12:09:00
-- 回复：（y2287958）在模板中预先做好印章不行吗
这样的话 会造成非授权的空白文书印章了
-- 发布时间：2020/12/31 13:54:00
--
试试：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=144070&replyID=43381&skin=1
-- 发布时间：2020/12/31 14:58:00
-- 回复：（有点蓝）试试：http://www.foxtable.com/bbs/...
参照老师提供的EXCEL模板vba插入图片的方式
使用vba添加图片
此主题相关图片如下：1.png
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编辑过]
-- 发布时间：2020/12/31 15:13:00
--
用法差不多
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