Automatically insert signature in worksheet

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I need to automatically insert a picture in a worksheet depending on certain
cell value. e.g. if cell A1=1, picture1 will show in cell B5, if cell A1=2,
picture2 will show in cell B5, if cell A1=3, No graphic will show in cell B5.
Any help would be greatly appreciated.
Thanks
 
Thanks for your help, but can you advise me how I can adapt the code to have
the picture show in more than 1 location. Basically the picture is a scanned
signature and for example if cell A1=1, the signature needs needs to show up
on 3 different sections of the sheet.

Thanks
 
Hi John,

Try:

'===================================>>
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Dim arr As Variant
Dim arr2 As Variant
Dim i As Long

arr = Array("A1", "D1", "H1") '<<==== CHANGE
arr2 = Array("Picture1", "Picture2", "Picture3") '<<==== CHANGE

Me.Pictures.Visible = False

For i = LBound(arr) To UBound(arr)
With Range(arr(i))
Set oPic = Me.Pictures(arr2(i))
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
oPic.Height = .Height
oPic.Width = .Width
End With
Next i
End Sub
'<<===================================

Change the destination array addresses to suit and change the picture names
in arr2 to reflect the three copies of your signature,
 
Hi John,

Additionally, size the signature destination cells to match rge desired
sinature dimensions.

You can do this manually, or by means of a minor addition to the code.
 
Back
Top