Hola gente tengo un problema con esta macro, lo que quiero hacer es que los gráficos que tengo en excel se copien en un PowerPontl ya activo, y estos gráficos se vayan copiando en cada diapositiva diferente..... Luego de esta linea de código ( PPSlide.Shapes.Paste ) debería hacer algo para que vaya iterando las diapositivas, pero todo lo que pruebo me tira error,. ayuda por favor ... Sub ExcelToExistingPowerPoint() Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide ' Reference instance of PowerPoint On Error Resume Next ' Check whether PowerPoint is running Set PPApp = GetObject(, "PowerPoint.Application") If PPApp Is Nothing Then ' PowerPoint is not running, create new instance Set PPApp = CreateObject("PowerPoint.Application") ' For automation to work, PowerPoint must be visible PPApp.Visible = True End If On Error GoTo 0 ' Reference presentation and slide On Error Resume Next If PPApp.Windows.Count > 0 Then ' There is at least one presentation ' Use existing presentation Set PPPres = PPApp.ActivePresentation ' Use active slide Set PPSlide = PPPres.Slides _ (PPApp.ActiveWindow.Selection.SlideRange.SlideIndex) Else ' There are no presentations ' Create new presentation Set PPPres = PPApp.Presentations.Add ' Add first slide Set PPSlide = PPPres.Slides.Add(1, ppLayoutBlank) End If On Error GoTo 0 ' Some PowerPoint actions work best in normal slide view PPApp.ActiveWindow.ViewType = ppViewSlide ''--------------------- '' Do Some Stuff Here ''--------------------- 'Recorrer tods los gráficos en nuestro libro de Excel For Each hoja In ThisWorkbook.Worksheets For Each grafico In hoja.ChartObjects 'Copiar gráfico en la dispositiva hoja.ChartObjects(grafico.Index).Chart.CopyPicture PPSlide.Shapes.Paste 'Centramos la imagen insertada ' PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, msoTrue ' PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, msoTrue Next Next ' Clean up Set PPSlide = Nothing Set PPPres = Nothing Set PPApp = Nothing End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

macro gráficos de excel a PowerPoint

Autor del tema chuno22
Fecha de inicio 5 Ene 2016

chuno22

New member

5 Ene 2016

Hola gente tengo un problema con esta macro, lo que quiero hacer es que los gráficos que tengo en excel se copien en un PowerPontl ya activo, y estos gráficos se vayan copiando en cada diapositiva...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Cómo puedo replicar esta macro de Gráficos

Respuestas: 2

6 May 2015

pepemarga90

Pregunta

Macro para copiar gráficos

Respuestas: 2

9 May 2006

opermty

Pregunta

Como imprimir un gráfico de hoja excel desde una macro

Respuestas: 1

24 Nov 2022

FGV

Pregunta

Insertar series con Macro

Respuestas: 7

5 May 2020

Cacho R

Pregunta

Macro para modificar gráfico no funciona con hoja protegida

Respuestas: 14

16 Abr 2020

Cacho R

Pregunta

Macro para obtener la funcion de una curba de un grafico de dispersion

Respuestas: 0

18 Jun 2019

005

Pregunta

Macro para colorear grafico de dispersion

Respuestas: 0

4 Sep 2018

maxi.cifuentes

Pregunta

Macro para Grafico de barras condicional

Respuestas: 0

1 Nov 2016

Noi1001

Pregunta

Cambiar colores a barra de grafico por macro

Respuestas: 0

5 May 2016

Andy506

Pregunta

Macro grafico de torta con rango de datos variable

Respuestas: 0

29 Feb 2016

mrbarcaman

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba