title: Insert picture with Selection.PasteSpecial not working
body: <p>I use this code to insert a picture from the clipboard:</p>
  
  <pre><code>Selection.PasteSpecial Link:=False, DataType:=wdPasteDeviceIndependentBitmap, Placement:=wdInLine, _
              DisplayAsIcon:=False
  </code></pre>
  
  <p>This code is running well with Word 2007 but not with Word 2013. In W07 the picture is copied into the document, with W13 I only get a blank document. </p>
  
  <p>I tried it without the <code>DataType</code> (<code>Selection.PasteSpecial Placement:=wdInLine</code>) but still the same. </p>
  
  <p>The picture is correct in the clipboard as shown under "Insert"</p>
  
  <p><a href="https://i.stack.imgur.com/WYh5A.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/WYh5A.png" alt="enter image description here"></a></p>
  
  <p>How can I get it work? Thanks</p>
  
  <p><strong>Update code with selection:</strong></p>
  
  <pre><code>Selection.EndKey Unit:=wdStory
  ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=2
  Selection.Cells.SetWidth ColumnWidth:=CentimetersToPoints(11.5), RulerStyle:=wdAdjustNone
  Selection.Rows.SpaceBetweenColumns = CentimetersToPoints(0.25)
  Selection.Move Unit:=wdColumn, Count:=1
  Selection.SelectColumn
  Selection.Cells.SetWidth ColumnWidth:=CentimetersToPoints(4.5), RulerStyle:=wdAdjustNone
  Selection.Rows.SpaceBetweenColumns = CentimetersToPoints(0.25)
  Selection.SelectColumn
  Selection.Cells.HeightRule = wdRowHeightAuto
  With Selection.Rows
      .Alignment = wdAlignRowLeft
      .AllowBreakAcrossPages = True
      .SetLeftIndent LeftIndent:=CentimetersToPoints(0), RulerStyle:=wdAdjustNone
  End With
  Selection.Tables(1).Select
  Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone
  Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
  Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone
  Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone
  Selection.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
  Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone
  Selection.MoveLeft Unit:=wdCharacter, Count:=1
  
  Selection.PasteSpecial Link:=False, DataType:=wdPasteDeviceIndependentBitmap, Placement:=wdInLine, _
              DisplayAsIcon:=False
  
   Selection.MoveRight Unit:=wdCharacter, Count:=1
  </code></pre>