Word 2016 command name

gmayor · #2 07-04-2017, 03:41 AM

The following will replace a selected inline image with the named image and set the image width to the same size as the original, which for similar aspect ratio pictures means the same size:

Code:

Dim oRng As Range
Dim oShp As InlineShape
Dim lngWidth As Long
    Set oRng = Selection.InlineShapes(1).Range
    lngWidth = Selection.InlineShapes(1).Width
    oRng.Text = ""
    Set oShp = oRng.InlineShapes.AddPicture("C:\Path\Filename.jpg")
    oShp.LockAspectRatio = msoTrue
    oShp.Width = lngWidth

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Visio 2016 diagrams embeded in word 2016 not drawing properly	stubbo66	Visio	2	08-24-2016 05:58 PM
Using a display alert command in Word	ch1325	Word VBA	2	04-30-2016 06:50 AM
How to run command in word	si14	Word	3	06-10-2015 04:08 PM
From the command line, how do I run a Word macro?	jdockstader	Word	7	02-04-2013 06:09 AM
Invoking a command line from inside Word	bolpom	Word	1	03-16-2011 03:03 AM