"the drawing operation cannot be applied to the current selection"

[macropod]

As an aside, any idea why my code might have stopped working overnight?

It could be something as simple as the image you copied having been formatted as inline or because you were copying from another app and you'd set Word's default 'Insert/paste picture as' format to inline (see under File|Options|Advanced>Cut, copy & paste).

[AJS]

... and unfortunately, this afternoon I get a new error message: "Run-time error '5941': The requested member of the collection does not exist". The error occur after the paste operation, and the debugger takes me to the following line:

Set Shp = .InlineShapes(1).ConvertToShape