Controlar otra aplicación desde el Excel

22/11/2007 - 18:27 por Ariel Benítez | Informe spam
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

#1 Héctor Miguel
23/11/2007 - 02:59 | Informe spam
hola, Ariel !

si estas escribiendo en el mensaje los codigos "de memoria" (o como recuerdas que son)... creo que
sera mejor si vuelves a exponer (pero) transcribiendo los codigos "exactamente" como dicen tus macros :))

incluye la forma de "instanciar" a la otra aplicacion (publisher) y comentar si abres un archivo existente o creas uno nuevo
(la forma de controlar las paginas en el documento -segurametnte- va a depender de apertura o creacion de archivos)

saludos,
hector.

__ la consulta original __
Realize una planilla que tiene tablas dinamicas, graficos estaticos y dinamicos.
Realice una subrutina que copia todos los charts de una hoja y crea archivos .jpg en una carpeta.
Luego abre una aplicacion publisher en la cual al abrir "estira" los graficos previamente creados.
Pero tuve muchos problemas al tratar de hacer esto mismo con los informes de tabla dinamica
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 pag donde se pegan dichos "informes imagenes" no consigo que se peguen en paginas distintas.
La linea de codigo que pega las imagenes es:
dim sh as shape
for each sh in worksheets("HojaGraficas") 'para recorrer por todos los graficos de la hoja
copiar como grafico, 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 aplicacion publisher creada
next

(... gritos !!! ...)

Preguntas similares