Hello everyone!
Could anyone help me with this macro?
Sub Macro2() Dim p As Page, s As Shape, sr As ShapeRange Dim i& For i = 1 To ActiveDocument.Pages.Count ActiveDocument.Pages(i).Shapes.All.ConvertToBitmapEx 5, False, False, 150, 1, True, False, 95 Next i End Sub
Sub Macro2()
Dim p As Page, s As Shape, sr As ShapeRange
Dim i&
For i = 1 To ActiveDocument.Pages.Count
ActiveDocument.Pages(i).Shapes.All.ConvertToBitmapEx 5, False, False, 150, 1, True, False, 95
Next i
End Sub
I modified this macro from Sub GDG_John( ) in order to convert all objects of each page into a single bitmap, but it keeps deleting all objects except those in the active page.
Thank you in advance!
You could try this:
Sub convert_to_bitmap_by_page() Dim pageThis As Page For Each pageThis In ActiveDocument.Pages pageThis.Activate pageThis.Shapes.All.ConvertToBitmapEx cdrCMYKColorImage, False, False, 150, cdrNormalAntiAliasing, True, False, 95 Next pageThis End Sub
This is great, thank you so much Eskimo!