VBA - Ulož jako

[Corel Support Client Profil]

CorelPhoto-Paint X3 CZ/PL
Pri jednoduchem skriptovani prikazem:
Application.ActiveDocument.SaveAs "C:\PRD.JPG", cdrJPEG
zadny soubor neulozim - neni ani chybova hlaska ani pri debuggingu nenalezam zadnou chybu, ale na vystupu proste neni zadny soubor....

[Zdeněk Rampas Profil]

SaveAs ještě „nic nedělá“. Vytvoří jen objekt typu ExportFilter, který teprve ukládá, pokud máte více požadavku na ukládání, možná budete potřebovat i třetí parametr za cdrJPEG.
Sub main()
Dim expflt As ExportFilter
Set expflt = Application.ActiveDocument.SaveAs("C:\PRD.JPG", cdrJPEG)
With expflt
.Progressive = False
.Optimized = False
.SubFormat = 0
.Compression = 12
.Smoothing = 12
.Finish
End With
End Sub