Met de LIFO methode bestand uit map halen

[Leondemooij]

Ok dan snap ik het voor de volgende keer.
Bedankt voor de uitleg en de hulp.
Zie je nog meer grove fouten in de code of kan het door de beugel ?

 

[edmoor]

Daar heb ik niet naar gekeken.
Als er wat mis of niet naar je zin gaat weet je Helpmij te vinden

 

[Leondemooij]

Het werkt , ik ben allang blij.
Nogmaals bedankt voor de hulp.

 

[snb]

Verwijder die overbodige 'call' (2*)

 

[Leondemooij]

welke ?

 

[edmoor]

Bijvoorbeeld:
Call Uitsnijden

Mag ook zijn:
Uitsnijden

Dus zonder het woordje Call er voor.

 

[Leondemooij]

Dat is een goede tip.
Dus dat is niet nodig in vba ?

 

[edmoor]

Nee, alleen bij een functie aanroep met de parameters tussen haken.
Die haken mag je ook weg laten, dus wat snb al zei, Call is overbodig.

 

[Leondemooij]

Weer wat geleerd.

 

[snb]

Andere beugels:

Private Sub Worksheet_Change(ByVal Target As Range)
    If instr("$B$7$B$8",target.address)=0 then exit sub

    Application.EnableEvents = False
    If Range("B8") > 0 Then DrawPicture
    If Range("B7") > 0 Then kopieerscan
    Application.EnableEvents = True
End Sub

Sub DrawPicture()
    With activeworksheet.shapes.AddPicture(Split(CreateObject("wscript.shell").exec("cmd /c dir D:\fotomapexcel\*.jpg /b/o-d/s").stdout.readall, vbCrLf)(0), False, True, 100, 100, 1, 1)
       '   .ScaleHeight 1, msoCTrue
       '   .ScaleWidth 1, msoCTrue
       '    Uitsnijden
    end with
End Sub

Ik weet niet of die scalingmethodes (die mij standaard lijken) nodig zijn.

Plaats svp de 'uitsnijden' macro, want die code kan beter meteen gebruikt worden in de 'drawpicture' macro.

Ik zou de workbook_change gebeurtenis hiervoor niet gebruiken.

 

[Leondemooij]

Nog even alles proberen op te schonen.
Soms loopt Excel even vast ( reageert niet ) ik denk dat mijn pc niet snel genoeg is, of ligt dit aan de code ?

Nog een probleem is dat ik een QR code scan met een scanner, is er een mogelijkheid dat deze data altijd in E5 terecht komt ?
Ook als Excel bijv. op de achtergrond draait ?
Nu werkt dit alleen als Excel op de voorgrond draait.

Ook werkt de Worksheet change niet als ik een scan doe, alleen als ik de cursor verplaatst wordt deze actief.
Ik trigger de knip routine door B8 1 te maken doormiddel van een DDE server vanuit een plc.
Ook hier werkt de Worksheet change niet, is hier een oplossing voor ?

 

[alphamax]

google "dde event vba", je vindt verschillende links, die ik niet naar waarde kan beoordelen omdat ik de hardware niet heb.