Paraaf in een textbox plaatsen

Status
Niet open voor verdere reacties.
G

gst

Gebruiker
Lid geworden
5 jan 2010
Berichten
121
Besturingssysteem
64-bits besturingssysteem, x64-processor
Office versie
Microsoft Office LTSC Professional Plus 2021
Geacht forum,

Is het op de een of anderen manier mogelijk om een paraaf van een gebruiker in een textbox te laten plaatsen?
Waarna de textbox beveiligd is en de paraaf niet meer gewijzigd kan worden.
Klein voorbeeld toegevoegd.
 

Bijlagen

  • Paraaf.xlsm
    17,6 KB · Weergaven: 40
Wat versta je onder een paraaf ?
Zegt mij niets in Excel.
Bedoel je Username ?
 
Paraaf=verkorte handtekening.
Volgens mij wil ts gewoon een ingescande handtekening of paraaf in zijn sheet.

Groeten Marcel
 
Ik had mijn vermoedens, maar ik zie nergens zo'n gescande handtekening.
 
Ooit eerder gemaakt, volgens dit principe?
 

Bijlagen

  • worksheet don69 handtekening 32 en 64bit loadpicturegdi.zip
    48 KB · Weergaven: 37
Laatst bewerkt:
Wat ik inderdaad graag wil is dat er een gescande handtekening (of paraaf) in een textbox ingevoegd kan worden.
Hierna kan er geen aanpassing meer plaats vinden. De textbox is dan beveiligd.

Voorbeeld van alphamax heb ik geprobeerd maar krijg het volgende alarm:

'De code in det project moet worden bijgewerkt voor gebruik op 64-bits systemen.
Controleer de instructie, werk ze bij en markeer ze met het kenmerk PtrSafe.'

Mijn toegevoegd voorbeeld laat alleen een deel van een toepassing zien van een formulier, hoe en waarop ik graag een paraaf ingevoegd wil hebben.

Elke suggestie is welkom
gst
 
Zie bericht#5, nieuw aangepast 64bit bestand.
 
Laatst bewerkt:
alphamax,

Helaas krijg ik de volgende foutmelding bij je toegevoegd bestand.

Copileerfout:
Constanten, reeksen met een vasste lengte, matrices, door een gebruiker
gedefinieerde typen en Declare-instructies zijn niet toegestaan als
openbare leden van objectmodules

(Ter info, ik gebruikt vba 7.1)
 
Zie nogmaals bericht#5, code aangepast aan 64bit terwijl ikzelf geen 64bit heb, dus kan ik mezelf niet controleren en kan ik wel eens een private vergeten.
 
alphamax,

Je wijziging geprobeerd maar helaas krijg ik weer een fout melding, 'Compileerfout' => 'Kan de methode of het gegevenslid niet vinden'
Hierbij wordt fout in de volgende zin weergegeven in Sub Workbook_Open() => Blad1.Image1.Picture = LoadPicture(Split(ThisWorkbook.Path, ".")(0) & "\Achtergrond.bmp")

Ik denk dat ik voor mijn toepassing maar i.p.v. een paraaf, vraag om een wachtwoord in te vullen, waarna mijn bestand doorgestuurd mag worden.
In ieder geval bedankt voor je moeite!!

gst
 
Staan het bestand en de bmp in dezelfde directory want het werkt anders perfect.( waar ik trouwens niet aan twijfelde aangezien am de aanbrenger is)
 
Laatst bewerkt:
Warme bakkertje
Bestand en de bmp staan in dezelfde directory.
Foutmelding is zoals hiervoor aangegeven bij : 'Image1'
 
Het bestand is zeker nog niet opgeslagen ?


Waarom niet even systematisch testen ?

Code: 
Sub Workbook_Open() 
   msgbox thisworkbook.path
   msgbox activesheet.codename
   msgbox activesheet.shapes.count
   msgbox dir("*.bmp")
End Sub
 
Laatst bewerkt:
snb

Alles geplaatst (uitgepakt) in C:\TEST
Helaas kom ik toch bij de vermelde storingen uit.
 
Mac? windows10? excel97?
 
Ik maak gebruik van het volgende:

Windows 7 Professional
Service Pack1

Microsoft Office Standard 2013
Microsoft Visual Basic for Application 7.1
 
welke meldingen krijg je met mijn macro uit #13 ?
 
Onderstaande in sub workbook als eerste toegevoegd.

msgbox thisworkbook.path
msgbox activesheet.codename
msgbox activesheet.shapes.count
msgbox dir("*.bmp")


Bij opstarten krijg ik de eerste foutmelding 'Kan de methode of het gegevenslid niet vinden' bij:
Blad1.Image1.Picture = LoadPicture(Split(ThisWorkbook.Path, ".")(0) & "\Achtergrond.bmp")

Blokkeer ik deze regel dan krijg ik vervolgens de volgde meldingen:
c:\TEST
Blad1
5
blanco (geen tekst)

'Verwijzing Miecrosoft InkEdit Control 1.0 ingesteld'
 
Kijk zo komen we ergens.

Blijkbaar bestaat image1 niet.

gebruik

Code: 
Sub M_snb()
   msgbox activesheet.shapes(1).name
   msgbox activesheet.shapes(2).name
   msgbox activesheet.shapes(3).name
   msgbox activesheet.shapes(4).name
   msgbox activesheet.shapes(5).name
end sub
en vertel ons de resultaten.

Waarschijnlijk gaat het dit worden:

Code: 
Blad1.shapes("Picture 1").Picture = LoadPicture(Split(ThisWorkbook.Path, ".")(0) & "\Achtergrond.bmp")
 
Laatst bewerkt:
snb,

Wanneer ik Workbook_Open start verschijnt de melding:

Compileerfout:
Kan de methode of het gegevenslid niet vinden

Hierbij wordt: '.Shapes' van de volgende regel: 'Blad1.Shapes("Picture 1").Picture = LoadPicture(Split(ThisWorkbook.Path, ".")(0) & "\Achtergrond.bmp")'
gemarkeerd aangegeven

Blokkeer ik deze zin dan geeft je opgegeven msgboxen het volgende weer:

InktPicture1
CommandButton1
CommandButton2
Image1
Image2

Hierna volgt een melding:
Verwijzing Microsoft InkEdit Control 1.0 ingesteld

Daarna volgt een fout melding:
Fout 438 tijdens uitvoering:
Deze eigenschap of methode wordt niet ondersteund door dit object
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan