Just use the Copy method of a ContentControl object to implement it.
Sub CopyPictureContentControl()
Dim cc As ContentControl, ccCopy As ContentControl
' if the Picture Content Control you want to copy is the first one
Set cc = ActiveDocument.ContentControls(1)
cc.Copy
Rem Place the insertion position in the position where to
…
Top comments (0)