VB为报表盖电子图章

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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

以上是关于VB为报表盖电子图章的主要内容,如果未能解决你的问题,请参考以下文章

将vb.net中怎样生成柱形图

如何利用Excel电子表格实现纯表格循环扩展报表

web报表中电子印章/水印的轻松实现

web 报表中电子图章 / 水印的轻松实现

皕杰报表之柱状图

帆软报表(finereport)入门 3-图表——扇形图/等弧度的玫瑰图