¿Cómo guardar Word Shapes en la imagen usando VBA?

Question

Jun 28, 2011, 09:59 PM

¿Cómo guardar Word Shapes en la imagen usando VBA?

Tengo un requisito simple para guardar objetos de dibujo de MS-Office integrados en un documento de Word en archivos de imagen. El siguiente código funcionó para la extracción de imágenes de Powerpoint. Sin embargo, no funciona para MS-Word si modifico ActivePresentation a ActiveDocument. El método de exportación no estaba disponible para objeto de forma. ¿Algunas ideas

Dim oPPTShap as Shape
For k = 1 To .Slides(intSlide).Shapes.Count
    Set oPPTShape = ActivePresentation.Slides(intSlide).Shapes(k)
    oPPTShape.Export "C:\images\s" & k & ".bmp", ppShapeFormatBMP                
Next