Replacing a selected image with clipboard contents

[geckoz100]

I have a document with hundreds of image placeholders that I need to replace with images from a source on the web. After doing "Copy image" on the web, I need to come back to MS Word, right-click the image, select "Change picture", then "From clipboard". I found the VB line below, but all it does is knock out the existing graphic and paste in the new, which does not retain the original dimensions. I need the original image properties/dimensions, and be able to just replace the contents with the clipboard. Ideally, I'd like to be able to assign this to a keyboard shortcut, so I don't have to go through multiple clicks over and over.

Sub ChangePic()

Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False

End Sub

I'd greatly appreciate any help.

[jdelano]

This is likely not the best way to handle this:

I added a module to a document and in it I have this code:

Public Sub ChangePic()
    
    If Selection.Type = wdSelectionInlineShape Then
        Dim currentImageHeight As Integer
        Dim currentImageWidth As Integer
        Dim inlineName As String
        Dim currentInlShape As InlineShape
        Dim newInlShape As InlineShape
                
        ' get the size of the image
        Set currentInlShape = Selection.InlineShapes(1)
        currentImageHeight = currentInlShape.Height
        currentImageWidth = currentInlShape.Width
        
        ' paste the clipboard image
        Selection.PasteSpecial Link:=False, Placement:=wdInLine
        
        currentInlShape.Delete
        
        ' size the pasted image to what the other image was
        Set newInlShape = ThisDocument.InlineShapes(ThisDocument.InlineShapes.Count)
        newInlShape.Height = currentImageHeight
        newInlShape.Width = currentImageWidth
        Set newInlShape = Nothing
    End If
    
End Sub

I assigned the macro to SHIFT+ALT+V. Using these steps https://software-solutions-online.co...-key-to-macro/

My document is super simple, but I hope this gives you a starting point. Don't forget to add error catching code to it.