pegar en powerpoint tabla de excel
Publicado por Jose (4 intervenciones) el 17/11/2019 16:47:31
Tengo un un archivo excel y quiero que una tabla se pege en un archivo powerpoint, quiero que se pege como segunda diapositiva, he conseguido generar un powerpoint y hacerlo pero lo quiero hacer en un archivo ya existente y que lo que pego se ajuste al tamaño de la diapositiva, utilizo este codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub ExportaraPowerPoint()
Dim pptApp As PowerPoint.ApplicationDim pptPres As PowerPoint.PresentationDim pptSlide As PowerPoint.SlideDim pptShape As PowerPoint.ShapeDim excelTable As Excel.RangeDim i As Integer
'Asignar la tabla que queremos copiar a la variable excelRange
Set excelTable = Worksheets("Milibro").Range("A2:P42")
'Comprobar si PowerPoint esta abierto y en caso de no estarlo abrirlo
On Error Resume Next
Set pptApp = GetObject("", "PowerPoint.Application")
Err.ClearIf pptApp Is Nothing Then Set pptApp = CreateObject(class:="PowerPoint.Appliaction")
pptApp.Visible = True
pptApp.Activate'Crear una nueva presentacion de PowerPoint
Set pptPres = pptApp.Presentations.Add
Set pptSlide = pptPres.Slides.Add(1, ppLayoutBlank)
'Copiar la tabla de Excel
excelTable.Copy'Pegar la tabla de Excel en PowerPoint y centrarla en la diapositiva
pptSlide.Shapes.PasteSpecial(ppPasteEnhancedMetafile).Select
pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
pptApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
End Sub
Valora esta pregunta
0