Realize una planilla que tiene tablas dinámicas, gráficos estáticos y
dinámicos. Realice una subrutina que copia todos los charts de una hoja y
crea archivos .jpg en una carpeta. Luego abre una aplicación publisher en la
cual al abrir "estira" los gráficos previamente creados.
Pero tuve muchos problemas al tratar de hacer esto mismo con los informes de
tabla dinámica y otros informes realizados en celdas comunes. La subrutina
para los informes, copia los mismos y los convierte en bmp; pero al momento
de pegar en publisher a pesar que contolo la pág donde se pegan dichos
"informes imágenes" no consigo que se peguen en páginas distintas. La línea
de código que pega las imágenes es:
dim sh as shape
for each sh in worksheets("HojaGraficas") 'para recorrer por todos los
gráficos de la hoja
copiar como gráfico, no recuerdo exactamente y estoy utilizando una pc
sin office en este momento. Disculpen por esto.
pagina = pagina + 1
appPub.ActiveDocument.Pages(pagina).Shapes.Paste 'appPub aplicación
publisher creada
next
POR FAVOR DENME OTRA IDEA O LA RAZON POR LO QUE NO CONSIGO PEGAR LOS
GRAFICOS EN PAGINAS DISTINTAS DEL PUBLISHER. TODO ES CONTROLADO PRACTICAMENTE
EN EL VBA DEL EXCEL, PERO SI EXISTE ALGUNA SOLUCIÓN QUE SOLO FUNCIONE DESDE
EL VBA DEL PUBLISHER, "NO DEBERÍAN SER IGUALES LOS COMANDOS EN AMBAS
APLICACIONES", tal vez lo son y tan solo yo estoy confundido,
DESDE YA MUCHAS GRACIS POR RESPONDERME,
Saludos
Leer las respuestas