Excel - Error al pegar en Macro 'PPSlide.Shapes.PasteSpecial(DataType:=ppPastePNG).Select

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder