Dim output 
output = "C:\Users\Desktop\output\ausgabe.jpg" 
 
 
Set saveOptions = CreateObject("Photoshop.ExportOptionsSaveForWeb")             
 
saveOptions.Format = 6  'JPEG 
saveOptions.Interlaced = false  
saveOptions.quality = 70 
saveOptions.IncludeProfile = false 
saveOptions.optimized = true 
 
Set active = appRef.ActiveDocument 
active.Export output,2, saveOptions