Hola a todos! Espero me puedan ayudar con el siguiente código, lo que hace en especifico es copiar un rango de datos y pegarlo en powerpoint en una slide, abre una presentación y agrega un slide. Ahora bien quisiera saber en que parte del código y que código poner para en la presentación activa me pegue la tabla en la diapositiva 3 por ejemplo y no en la 1. """Sub CrearPowerPoint() 'Definición de variables Dim archivoPPT As PowerPoint.Application Dim diapositiva As PowerPoint.Slide Dim excelTable As Excel.Range 'Instancia del objeto PowerPoint.Application Set archivoPPT = New PowerPoint.Application 'Creamos una presentación PowerPoint 'archivoPPT.Presentations.Add 'Asignar la tabla que queremos copiar a la variable excelRange Set excelTable = Worksheets("Resumen").Range("C2:H14") 'Agregar nueva diapositiva archivoPPT.ActivePresentation.Slides.Add _ archivoPPT.ActivePresentation.Slides.Count + 1, ppLayoutBlank archivoPPT.ActiveWindow.View.GotoSlide _ archivoPPT.ActivePresentation.Slides.Count Set diapositiva = archivoPPT.ActivePresentation.Slides( _ archivoPPT.ActivePresentation.Slides.Count) 'Copiar la tabla de Excel excelTable.Copy 'Pegar la tabla de Excel en PowerPoint y centrarla en la diapositiva diapositiva.Shapes.PasteSpecial(ppPasteEnhancedMetafile).Select archivoPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True archivoPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True 'Centramos la imagen insertada archivoPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, msoTrue archivoPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, msoTrue 'Eliminamos las instancias creadas Set diapositiva = Nothing Set archivoPPT = Nothing End Sub """" muchas gracias!

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.

Ayuda con código

Autor del tema Pakkosan
Fecha de inicio 11 Jun 2019

Pakkosan

New member

11 Jun 2019

Hola a todos!

Espero me puedan ayudar con el siguiente código, lo que hace en especifico es copiar un rango de datos y pegarlo en powerpoint en una slide, abre una presentación y agrega un slide...

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

Resuelto

Ayuda con mi código vba

Respuestas: 18

15 Abr 2025

Karla manjarrez

Pregunta

Ayuda con el código

Respuestas: 1

10 Abr 2024

Deleted member 10123

Pregunta

ayuda sobre siguiente código

Respuestas: 1

16 Ago 2023

JANS G.

Pregunta

Ayuda con código para marcar celdas según el valor de otra celda.

Respuestas: 3

22 May 2023

Leopoldo Blancas

Pregunta

Ayuda con código

Respuestas: 6

2 Nov 2022

CeazyM

Resuelto

Ayuda con error en código VBA

Respuestas: 8

8 Abr 2022

MudVein

Pregunta

Ayuda con código, Selection.Insert Shift:=xlToRight

Respuestas: 2

3 Feb 2022

Luizm25

Pregunta

Ayuda código para editar valores ya cargados en una Base de Datos

Respuestas: 2

1 May 2021

wilmerp

Pregunta

Ayuda con la sintaxis de estas líneas de código

Respuestas: 2

27 Feb 2021

fjaimes04

Pregunta

Ayuda con código Enviar correo con tabla

Respuestas: 2

13 Oct 2020

Pinal88

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