Determining file path for linked image in Word 2007

macropod · #8 01-26-2015, 04:21 PM

Change:
Dim StrPath As String, Resp
to:
Dim StrPath As String, Resp, i As Long, sngX As Single, sngY As Single, bRatio As Boolean, iShp As InlineShape

Below:
.LinkFormat.SourceFullName = StrPath
insert:

Code:

        i = ActiveDocument.Range(0, Selection.Range.Start).ContentControls.Count 
        If i > 0 Then
          With ActiveDocument.ContentControls(i)
            If Selection.Range.InRange(.Range) Then
              If .Type = wdContentControlPicture Then
                With .Range.InlineShapes(1)
                  sngX = .Width
                  sngY = .Height
                  bRatio = .LockAspectRatio
                  .Delete
                End With
                Set iShp = .Range.InlineShapes.AddPicture(StrPath, True, True)
                With iShp
                  .LockAspectRatio = bRatio
                  .Width = sngX
                  If bRatio = True Then
                    If .Height > sngY Then .Height = sngY
                  Else
                    .Height = sngY
                  End If
                End With
              End If
            End If
          End With
        End If

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
how to get image in clip draw by giving path	gsrikanth	Office	0	03-22-2012 05:03 AM
File Path for Outlook 2007 pst	eliz.bell	Outlook	2	10-29-2011 07:04 PM
Display Full File Path Name of Document in Title bar MS-Word 2010	Carlos06x	Word	1	10-12-2011 10:39 AM
Excel File as Linked Object in Word	jfitch	Word	0	03-18-2010 11:44 AM
Programmatically get File Path for currently opened WORD document	franferns	Word	1	11-26-2009 12:36 PM