Pasting a pic with attributes macro (Word 97 Sr2 win 95)

Topic

New Reply

I am trying to write a macro that will paste a pic from the clipboard with some attributes set (no wrap, line width etc).

My problem is that after the paste the pic is no longer selected and my atrribute settings then fail (no object).

How can I keep the pic selected after the paste?

I have got this far:

Sub paste_pic()

Selection.PasteSpecial DataType:=wdPasteMetafilePicture

End Sub

David

Reply | Quote

Replies

I hope somebody else will come up with a more elegant solution … if not, this should work:

  Dim i
  
  i = ActiveDocument.Shapes.count
  Selection.PasteSpecial DataType:=wdPasteMetafilePicture
  ActiveDocument.Shapes(i + 1).Select

Klaus

Reply | Quote

Klaus

Many thanks – worked a treat.

I vaguely knew I had to count the shapes but I could not get the syntax right – I’ve been beavering away on this since 0630 this morning…

David

Reply | Quote