Handtekening in cel zetten

[BenHendriks]

Wie kan mij helpen een handtekening te zetten in een cel m.b.v. een tekentablet.

 

[sylvester-ponte]

niet doen !

 

[BenHendriks]

Waarom niet

 

[sylvester-ponte]

misbruik

 

[BenHendriks]

Dat weet ik maar het gebeurd in een gecontroleerde omgeving, waarbij gezette handtekeningen niet opgeslagen mogen worden op laptop. Er is hier een dagelijkse controle op. Documenten worden in pdf formaat opgeslagen.

 

[tkint]

Beste,

Ik heb deze code gevonden op dit forum.

sub t()
ScreenUpdating = False
fileToOpen = Application _
.GetOpenFilename("JPEG-Afbeelding (*.jpg), *.jpg")
If fileToOpen <> False Then ActiveSheet.Pictures.Insert(fileToOpen).Select
ScreenUpdating = true
end sub

Je kan ook eerst naar een wachtwoord vragen en bij een juist antwoord de afbeelding invoegen. Zo bekom je misbruik.

 

[alphamax]

Maakt gebruik van de "Microsoft InkEdit Control 1.0" en "Microsoft Tablet PC Type Library, version 1.0" in de verwijzingen (Inked.dll en InkObj.dll)
Deze staan meestal niet geregistreerd op oudere pc's (regsvr32)

Je kan met de muis of tablet een handtekening plaatsen.
Klik je op "niet akkoord" dan wordt de ink-stroke (handtekening) gewist.
Klik je op "akkoord" dan wordt de ink-stroke omgezet naar een bitmap.
Vervolgens wordt de sheet als pdf opgeslagen met een datum-tijd-code in dezelfde map als het bestand.

@sylvester-ponte
Er worden geen handtekeningen op de harde schijf gezet, deze bestaan alleen maar in het geheugen.

Toets (linker)ALT+F11 voor de code

 

[alphamax]

@BenHendriks
Bedankt voor je reactie.