引用签名图片

源源远流长

大虾们，如附件，工作表B列，是参照A列情况，引用签名表里的签名图片，用什么方法可以实现呢？谢谢！有两个要求：1、工作表A单元格为空值时，B例对应的签名为空；2、引用的签名图片，与B列单元格大小一致，这样全样签名引用下来，就不会出现挨挤现象。
电子签名设计.rar (26.99 KB, 下载次数: 12)

2021-11-12 08:41 上传

点击文件名下载附件
电子签名设计.rar

西家塞

我发现用自定义公式有两个缺点：1、只能是固定单元格，而不能是活动的单元格，否则会出现引用失败；2、当名字为空值时，签名也应是空值，但这个实现不了。

天降石天珠

图片处理，还是VBA高效。

闲散人也

大佬，您好！可以截个完整的图么？谢谢。发的这个图还有些没截上，看不完整。

肉多多

三得力

注意签名表中的B列不能重叠，否则copy到工作表时也有重叠。

风在天涯

好的，谢谢大佬！如果工作表里面的名字有变化，可以复原一下，再重新运行宏签名么？

何沧宁

另外，在运行时，宏的控键按钮都被复盖搞没了呢。

程式达人

“Private Sub CommandButton1_Click()
Application.ScreenUpdating=False
Dim s As Shape,x As Range
For Each s In Sheets(“工作表”).Shapes
  If s.Type<>12 Then s.Delete
Next s
For Each x In Sheets(“工作表”).Range(“A1”,[A5000].End(3))
  If Not Sheets(“签名表”).[a:a].Find(x,,,1) Is Nothing Then
   Sheets(“签名表”).[a:a].Find(x,,,1).Offset(,1).Copy x.Offset(,1)
  End If
Next x
Application.ScreenUpdating=True
End Sub”
大佬，您好！可以解释下这几句话的意思么？If s.Type<>12 Then s.Delete，里面的为什么是12？”,[A5000].End(3)，End(3)是什么意思？Find(x,,,1) 这个是什么意思？Offset(,1)又是什么意思？谢谢