title: How to save Word Shapes to image using VBA?
body: <p>I have a simple requirement to save MS-Office Drawing Objects embedded within a Word Doc to image files. The following code worked for image extraction from Powerpoint. However it does not work for MS-Word if I modify the ActivePresentation to ActiveDocument. The Export method was not available for shape object. Any ideas?</p>
  
  <pre><code>Dim oPPTShap as Shape
  For k = 1 To .Slides(intSlide).Shapes.Count
      Set oPPTShape = ActivePresentation.Slides(intSlide).Shapes(k)
      oPPTShape.Export "C:\images\s" &amp; k &amp; ".bmp", ppShapeFormatBMP                
  Next
  </code></pre>