Work-arounds for GraphicsData not showing in Wolfram Cloud?

Question

I often copy-paste things from LatexIt or OmniGraffle into Mathematica notebooks. The results are GraphicsData objects which don't render in the Wolfram Cloud. Is there an easy work-around?

Since bitmaps render properly, perhaps there's some way to automatically convert all GraphicsData objects in the notebook into bitmaps?

Here's example notebook:

https://www.wolframcloud.com/obj/yaroslavvb/newton/graphics-data-example.nb

How it looks locally

Answer 1

I don't know how to convert the given GraphicsData objects into vector graphics, but you can use Rasterize to convert them into bitmaps. Here is a function that does this:

rasterizeGraphicsData[Cell[g:GraphicsData["PDF", __], "Graphics", OptionsPattern[Cell]]] := Module[{size},
    size = OptionValue[Cell, ImageSize];
    Cell[
        BoxData @ ToBoxes @ Rasterize[
            Cell[g, "Graphics"], 
            ImageSize -> size,
            RasterSize -> 5 size
        ],
        "Output"
    ]
]

Now, we need to apply the above function on each of the GraphicsData cells. We can do that with the following function:

convertNotebookGraphicsData[nb_] := With[
    {cells = Cells[nb, CellStyle -> "Graphics"]},
    NotebookWrite[#, rasterizeGraphicsData @ NotebookRead[#]]& /@ cells
]

Use Notebooks to find the notebook object to process and then use convertNotebookGraphicsData[nb] where nb is the NotebookObject corresponding to your notebook.