[vba][word] image resize

[DingleBerry]

Public Sub WriteCurrentPlot ()

   StoreViewInClipboard	
   
   word.Selection.TypeParagraph
   word.Selection.Paste
   word.Selection.TypeParagraph
   
End Sub

pastes the contents of the clipboard into the word document (StoreViewInClipboard places an image there). This is fine but the image is much too large and I can't change the StoreViewInClipboard method. How can I shrink the image to about 75%, it doesn't matter if its just word thats displaying it smaller, that will do.

Its probably pretty simple but I've not been using vba for very long.