Beste Excellers,
Ik heb een scanner waarmee ik visitekaartjes dubbelzijdig scan.
Deze bestanden worden opgeslagen in map C:\temp
De voor- en achterzijde van de kaartjes krijgen automatisch een naam:
Image_1.jpg en Image_1-back.jpg.
Image_2.jpg en Image_2-back.jpg.
Image_3.jpg en Image_3-back.jpg enz.
Nu wil ik een macro die onderstaande taken uitvoert:
1. Afbeelding Image_1 en Image_1-back invoegen in Excel resp. in cel C4 en C23
(indien mogelijk gelijk verwijderen uit map C:\temp)
2. die 2 jpg afbeeldingen 1,5 vergroten.
3. om die 2 afbeeldingen een rand zetten (hulpmiddelen voor afbeelding metalen kader).
4. de macro de vraag laten stellen: “vul hier de datum in” dd-mm-jjjj
5. het antwoord plaatsen in C2
6. de macro de vraag laten stellen : “vul hier de naam in”
7. het antwoord plaatsen in E2
8.Excel werkblad opslaan als pdf in C:\temp met naam uit C2 en E2 (jjjjmmdd-e2)
Vervolgens input wissen en macro herhalen
9. Afbeelding Image_2 en Image_2-back invoegen in Excel resp. in cel C4 en C23
Enz.
Als er geen Images meer zijn de macro stoppen.
Sub Macro1()
'
' Macro1 Macro
' Invoegen visitekaartje
'
'
Range("C4").Select
ActiveSheet.Pictures.Insert("C:\Temp\Image_1.jpg").Select
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
Range("C23").Select
ActiveSheet.Pictures.Insert("C:\Temp\Image_1-back.jpg").Select
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
Range("C2").Select
End Sub
Wie kan mij verder helpen?
Met vriendelijke groet,
Yasmin
Ik heb een scanner waarmee ik visitekaartjes dubbelzijdig scan.
Deze bestanden worden opgeslagen in map C:\temp
De voor- en achterzijde van de kaartjes krijgen automatisch een naam:
Image_1.jpg en Image_1-back.jpg.
Image_2.jpg en Image_2-back.jpg.
Image_3.jpg en Image_3-back.jpg enz.
Nu wil ik een macro die onderstaande taken uitvoert:
1. Afbeelding Image_1 en Image_1-back invoegen in Excel resp. in cel C4 en C23
(indien mogelijk gelijk verwijderen uit map C:\temp)
2. die 2 jpg afbeeldingen 1,5 vergroten.
3. om die 2 afbeeldingen een rand zetten (hulpmiddelen voor afbeelding metalen kader).
4. de macro de vraag laten stellen: “vul hier de datum in” dd-mm-jjjj
5. het antwoord plaatsen in C2
6. de macro de vraag laten stellen : “vul hier de naam in”
7. het antwoord plaatsen in E2
8.Excel werkblad opslaan als pdf in C:\temp met naam uit C2 en E2 (jjjjmmdd-e2)
Vervolgens input wissen en macro herhalen
9. Afbeelding Image_2 en Image_2-back invoegen in Excel resp. in cel C4 en C23
Enz.
Als er geen Images meer zijn de macro stoppen.
Sub Macro1()
'
' Macro1 Macro
' Invoegen visitekaartje
'
'
Range("C4").Select
ActiveSheet.Pictures.Insert("C:\Temp\Image_1.jpg").Select
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
Range("C23").Select
ActiveSheet.Pictures.Insert("C:\Temp\Image_1-back.jpg").Select
Selection.ShapeRange.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
Range("C2").Select
End Sub
Wie kan mij verder helpen?
Met vriendelijke groet,
Yasmin
