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)