Corel FORUM

[shap]

Witam,
jaki będzie wyglądało makro, które:
- zaznaczy wszystkie obiekty na danej stronie
- zamieni na bitmapę (np. 150dpi, rgb)
- przejdzie do kolejnej strony, zaznaczy wszystkie obiekty na danej stronie
- ...
- na koniec zapisze pdf (np. 150dpid, rgb)

[Martin Nez]

Późno, ale może komuś się przyda:

Kod:

Sub shap()     Dim dpi As Integer     dpi = 200     For Each p In ActiveDocument.Pages         p.Activate         p.Shapes.All.ConvertToBitmap , , , , dpi     Next     ActiveDocument.PublishToPDF Left(ActiveDocument.FullFileName, Len(ActiveDocument.FullFileName) - 3) & "pdf" End Sub