Afbeelding resizen in VBA for ms office

Zelf hebben we een heel order verwerkings systeem geschreven binnen vba met een verbinding naar een MySQL. 1 van de onderdelen hierbinnen is een productlijst met fotos. Bij het toevoegen van nieuwe producten en nieuwe fotos hebben we als 'bron' bestand een hoge resolutie .jpg, deze worden nu nog altijd met behulp van 3e programmas geresized. (combinatie van photoshop en irfanview) om dan nadien via het vba systeem te categoriseren in de database. Dit is vandaag de dag een te grote rompslomp omdat we verschillende formaten gebruiken. Mijn huidige tests om fotos te resizen (kleiner maken) zijn niet goed omdat er een enorm verlies van kwaliteit is. Graag zou ik hiervoor een werkende functie in vba hebben welke bv op volgende wijze zou werken. De originele foto moet proportioneel geresized worden naar opgegeven afmetingen (originele foto moet wel behouden worden) vb. strSourcePath = "C:\somefolder\[login to view URL]" strNewPath= "C:\otherfolder\[login to view URL]" fncImageResize(strSourcePath, strNewPath, 800, 600) (800 = image width, 600 = image height)