Corel FORUM Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych Makra - Makro: wszystkie obiekty -> bitmapa -> PDF shap - 20 Czerwiec 2024, 10:44 Temat postu: Makro: wszystkie obiekty -> bitmapa -> PDF 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 - 14 Luty 2025, 20:36 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

Powered by phpBB modified by Przemo © 2003 phpBB Group