VBA - Ulož jako
Moderátor: Zdeněk Rampas
Příspěvků: 2
• Stránka 1 z 1
- Corel Support Client
- Příspěvky: 1465
- Registrován: pátek 19. duben 2013 17.55:28
VBA - Ulož jako
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....
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
- Moderátor
- Příspěvky: 1490
- Registrován: pátek 8. březen 2013 18.33:08
RE: VBA - Ulož jako
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
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
Příspěvků: 2
• Stránka 1 z 1