PowerPoint 2010 Macro sólo funciona bajo Windows 7, Windows XP no, (copiar, pegar error Formas / insecto)

Question

I migró una macro VBA de PowerPoint 2007 a 2010 y después de una cierta depuración y pruebas descubrí que la copia de las formas de una presentación a otra sólo funciona bajo Windows 7 y no en Windows XP.

Al cerrar la presentación He copiado la forma de, en Windows XP, el nuevo objeto se vacía. En Windows 7 todavía existe el objeto.

I hizo un ejemplo:

Public Sub test()
  Dim HandlerApplication As New HandlerApplication
  Dim slide As slide

  HandlerApplication.create Application
  Set slide = ActiveWindow.Selection.SlideRange(1)

  Dim ppt As Presentation
  Dim shapeToCopy As shape
  Dim copiedShape As shape
  Dim strTemplateFile As String
  strTemplateFile = "SlideTemplate.pptx"

  Set ppt = Application.Presentations.Open(BuildPath(ComponentsPath, strTemplateFile), msoTrue, msoFalse, msoFalse)
  Set shapeToCopy = ppt.slides(7).shapes(1)

  shapeToCopy.Copy
  Set copiedShape = slide.shapes.PasteSpecial(ppPasteShape)(1)
  ppt.Close
  copiedShape.Name = "TestName"
End Sub

Agradezco cualquier ayuda / solución.

Answer 1

El problema fue un error en Office 2010 y se ha corregido en esta revisión: http: // support. microsoft.com/kb/2345341

Answer 2

Trate shapeToCopy.Duplicate lugar.