VB为报表盖电子图章

图中右下角是电子图章，VB代码如下：

Dim shp As Object
Dim DZTZ As String

DZTZ = ThisWorkbook.Path & "\" & "YWTJTZ.JPG"
If Dir(DZTZ) = "" Then
MsgBox "目录下没有电子图章。", vbInformation, "提示"
End If

Set shp = ActiveSheet.Pictures.Insert(DZTZ)
With shp
.Left = ActiveCell.Left + Int((ActiveCell.Width - 40) / 2)
.Top = ActiveCell.Top + Int((ActiveCell.Height - 40) / 2)
.Height = 40
.Width = 40
End With
Set shp = Nothing

转载于:https://www.cnblogs.com/lvyangyinli/p/5255211.html

VB为报表盖电子图章相关推荐

VB6为报表盖电子图章
图中右下角是电子图章,VB代码如下: Dim shp As Object Dim DZTZ As String DZTZ = ThisWorkbook.Path & &quo ...
给PDF文档添加电子图章的方法
在这电子商务遍地走的社会,电子图章被越来越多地应用在合同.发票和其它电子文档中.那么如果不会使用PS,该如何实现在文档中添加电子图章呢?今天就给各位老铁一种为PDF文档添加电子图章的方法. 工具: P ...
【ChatGPT】Spire.Doc 插入电子图章到 Word 文档
要在Word文档中插入电子图章,可以使用Spire.Doc提供的DocPicture类.以下是一个示例,演示如何使用Spire.Doc插入电子图章到Word文档: using Spire.Doc; u ...
福昕阅读器怎么添加电子图章？
随着传统办公模式逐渐向信息化办公模式转变,纸质文书的流转形式也随之向电子文书的流转形式转变:为能够在确保电子文书有效性的同时,也使得电子文书能与传统纸质文书具有相同的公信视觉效果,电子图章的概念应运而 ...
vb制作可输出函数的通用DLL---VB_DLL_Link用法
vb制作可输出函数的通用DLL---VB_DLL_Link用法论坛越来越多人关注dll,特分享一下vb制作可输出函数的通用DLL---VB_DLL_Link用法大家知道,VB6只能制作Active ...
西安电子科大计算机考研调剂,西安电子科技大学电子工程学院2020考研调剂信息...
考研调剂是考研考生在第一志愿没有通过自己报考学校考试,但初试成绩符合复试调剂基本分数要求但在原报考单位没有复试资格,可以申请调剂.2020考研国家线已公布,2020考研调剂系统5月20日已开通,考研成 ...
【调剂】西京学院电子信息学院接收调剂研究生
公众号[计算机与软件考研]每天都会发布最新的计算机考研调剂信息! 点击公众号界面左下角的调剂信息或者公众号回复"调剂"是计算机/软件等专业的所有调剂信息集合,会一直更新的. 202 ...
如何批量给pdf加图章？
如何批量给pdf加图章?如今pdf已经成为重要的文件格式,尤其是一些重要的文件,采用pdf格式会更加的安全,例如合作意向书,商务合同等,这些pdf合同都有一个特点,就是需要加盖电子图章.如果领导要你给 ...
html app签名,html5手写签名
sxqm 清空生成图片 var canvas, board; canvas = document.getElementById('myCanvas'); canvas.height = 300; ...

VB为报表盖电子图章

VB为报表盖电子图章相关推荐

最新文章

热门文章