VB6为报表盖电子图章
2016-03-08 18:54
363 查看
图中右下角是电子图章,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
相关文章推荐
- 使用 Async 和 Await 的异步编程(C# 和 Visual Basic)[msdn.microsoft.com]
- 0xC0000005: Access Violation
- VBA里的颜色常数
- KVC and KVO KVB
- VB 知识点总结
- H264三种码率控制方法(CBR, VBR, CVBR)
- 【应用笔记】【AN004】VB环境下基于RS-485的4-20mA电流采集
- 【VBA研究】变量定义的类型和实际赋值类型
- 在.net(C# or vb.net)中如何用户自定义消息,并在窗体中处理这些消息
- VB.NET 的 DES 加密与解密(转载于nofort博客)
- VB.NET视频总结
- 【.NET】浅谈VB.NET程序开发
- vba将列名的字母转为数字
- VBA中将数字列转换成字母的方法
- 在uwp中复活常用的vb库函数
- vb.net中xml操作实例
- vb.net中image转string
- xinu在vbox上,使用debian8,并在上面进行xinu编程
- vbs 合并 excel 表格
- 用VBA来完成任务