Error al pegar en Macro 'PPSlide.Shapes.PasteSpecial(DataType:=ppPastePNG).Select
Publicado por Alexander Acero (1 intervención) el 04/12/2014 22:56:43
Hola a todos,
Tengo una Macro que funcionaba perfecto en Excel 2010, esta copia gráficos estadísticos a una presentación de powerpoint, pero al actualzar a excel 2013 sale error. Este es el código utilizado
Copia el area donde esta la gráfica
Sheets("Hoja1").Select
Range("I8:T21").Select
Selection.Copy
Application.Wait Now + TimeValue("00:00:01")
'Activa PowerPoint
PPApp.Visible = True
Set PPPres = PPApp.ActivePresentation
' se ubica en la Diapositiva N° 4
PPApp.ActiveWindow.View.GotoSlide (4)
Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
PPSlide.Shapes.PasteSpecial(DataType:=ppPastePNG).Select
Aca en esta línea sale el siguiente error:
Shapes (unknow member) : Invalid request. Yhe specified data type is unavailable
Tengo una Macro que funcionaba perfecto en Excel 2010, esta copia gráficos estadísticos a una presentación de powerpoint, pero al actualzar a excel 2013 sale error. Este es el código utilizado
Copia el area donde esta la gráfica
Sheets("Hoja1").Select
Range("I8:T21").Select
Selection.Copy
Application.Wait Now + TimeValue("00:00:01")
'Activa PowerPoint
PPApp.Visible = True
Set PPPres = PPApp.ActivePresentation
' se ubica en la Diapositiva N° 4
PPApp.ActiveWindow.View.GotoSlide (4)
Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
PPSlide.Shapes.PasteSpecial(DataType:=ppPastePNG).Select
Aca en esta línea sale el siguiente error:
Shapes (unknow member) : Invalid request. Yhe specified data type is unavailable
Valora esta pregunta
0