Need to size picture after pasted in Word Table
I have code below that works great for selecting pictures from file directory and adding to the first column of a table in Word.
But I need to fix the height of the picture so it doesn't change the table rows. I need the height to be 3.5" and the width of the picture = lock aspect ratio. I'm pretty sure that I need to convert the picture to an object to do this, but don't want to mess up the insert that already works.
Thanks in advance!
Dim i As Integer
Dim picCount As Integer
Dim fd As FileDialog
Dim oTbl As Table
Dim myPic As InlineShape
picCount = 1
Set fd = Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select image files and click OK"
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.bmp; *.tif; *.png"
.FilterIndex = 2
If .Show = -1 Then
Set oTbl = Selection.Tables(1)
For i = 1 To .SelectedItems.Count
FileName:=.SelectedItems(i), LinkToFile:=False, _
picCount = picCount + 1
Set fd = Nothing