Modificar imagen de powerpoint desde macro de excel
Hola,
Cree una macro de excel que toma varios rangos y los va pegando como imagen en varias diapositivas, de varias presentaciones. Las imágenes las pegaba como metarchivo mejorado, y las centraba en la diapositiva, pero ahora me están pidiendo agregar gráficas junto con las tablas. Quisiera saber que código puedo agregar a la macro para re-posicionar la imagen, una vez pegada en la diapositiva. Mi código para pegar la imagen es mas o menos asi:
diapositiva.Shapes.PasteSpecial(ppPasteEnhancedMetaFile).Select
Slide = "Picture" & (objppt.ActiveWindow.Selection.SlideRange.Shape.Count)
objppt.ActiveWindow.Selection.SlideRange.Shapes(Slide).Select
With objppt.ActiveWindow.Selection.ShapeRange
.ScaleHeight 1.3, False, msoScalefromTopLeft
.ScaleWidth 1.3, False, msoScaleFromTopLeft
.Align msoAlignCenters, True
.Align msoAlignMiddles, True
End WithSe que el manejo de gráficas es diferente al de rangos, pero con poder colocar las imágenes donde quiero, lo demás ya es mas fácil.
Entiendo que las lineas de Alignserán reemplazadas por las que posicionen la imagen donde quiero pero, ¿con que código las acomodo?.
Gracias de antemano a quien pueda ayudarme, si requieren mas código, sin problema puedo facilitarlo.