title: VBA Office2010 Shapes.PasteSpecial fails
body: <p>I have a problem while migrating my VBA code from Office2003 to Office2010. I would like to copy the text of a cell (Excel) to Powerpoint. Office2003 generated a new textbox and the style of the text was the same as in Excel. Now my code fails with Office2010 and I get the following message:</p>
  
  <p>runtime error -2147188160 (80048240)
  Shapes.PasteSpecial : Invalid request. Clipboard is empty or contains data which may not be pasted here.</p>
  
  <p>The clipboard is definitly not empty.</p>
  
  <p>The code is the following:</p>
  
  <pre><code>Set mySlides = obj_pp.ActivePresentation.Slides
  mySlides(Slidenum).Shapes.PasteSpecial DataType:=ppPasteRTF
  </code></pre>
  
  <p>I have already tried other DataTypes and the Paste-function. Nothing helped. The text, I copy from Excel, is also formatted as text in Excel. Nothing special. The slide is added as an empty one. After adding the slide a picture is pasted (DataType:=ppPasteEnhancedMetafile). And after that the text should be pasted.</p>
  
  <p>Could someone please help me to get this code work? Thanks in advance. Please let me know if more code is needed.</p>
  
  <p>Edits:
  Binding of the ppt:</p>
  
  <pre><code>Dim Datei As String
  
  Pfad_Server = "..."
  Pfad_Verzeichnis = "..."
  Dateiname = "....pptx"
  Datei = Pfad_Server &amp; Pfad_Verzeichnis &amp; "\" &amp; Dateiname
  Set obj_pp = (GetObject(, "Powerpoint.Application"))
  obj_pp.Visible = True
  IsOpen = False
  </code></pre>
  
  <p>Before running the macro I always open the ppt. This works fine.</p>
  
  <p>Adding slide and pasting range as picture (works fine):</p>
  
  <pre><code>Range(Cells(start_var, 1), Cells(bereich_ende, 13)).Select
  Selection.CopyPicture xlScreen, xlPicture
  ...
  Set mySlides = obj_pp.ActivePresentation.Slides
  
  mySlides.Add Index:=mySlides.Count + 1, Layout:=12 'ppLayoutBlank
  mySlides(Slidenum).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
  </code></pre>