Wolfram Technology Guide: Real-Time 3D Graphics  previous | next 
Rotate or Zoom 3D Graphics Anywhere
Mathematica lets you interact with 3D graphics wherever they appear.
In[1]:=

Click for copyable input
Grid[Table[ChemicalData["Caffeine", "MoleculePlot"], {2}, {2}], 

 Frame -> All]
Out[1]=