Insert a Picture by ShapeData

JanH · #5 04-20-2022, 02:33 AM

Quote:

Originally Posted by Guessed

This code works as a starting point. There are subtle points that you may need to use to refine the location of the graphic. PinX and PinY is dependent on the LocPinX and LocPinY which may not be the middle of both the shp or the shpNew. Then you a question about sizing/relative sizing of the graphic.

Code:

Sub ProcessPage()
  Dim shp As Shape, pg As Page, sPath As String, sFile As String
  Dim dSpcX As Double, dSpcY As Double, shpNew As Shape
    
  sPath = ActiveDocument.Path
  For Each pg In ActiveDocument.Pages
    For Each shp In pg.Shapes
      If shp.CellExists("Prop.Number", 0) Then
        dSpcX = shp.Cells("PinX")
        dSpcY = shp.Cells("PinY")
        sFile = Replace(shp.Cells("Prop.Number").Formula, """", "")
        Debug.Print sPath, sFile
        Set shpNew = pg.Import(sPath & sFile & ".png")
        With shpNew
          .Cells("PinX") = dSpcX
          .Cells("PinY") = dSpcY
        End With
      End If
    Next shp
  Next pg
End Sub

Thank you!
I will try it

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Using IncludePicture and MailMerge to insert picture that is taken from a a picture lookup in Excel	nic-nax	Mail Merge	4	05-14-2019 10:34 PM
Picture content control -> insert picture -> empty?	Jaymond Flurrie	Word	3	07-13-2016 07:00 AM
How do I insert pictures directly into picture boxes by clicking the box instead of using INSERT>PIC	Bree	Word	1	06-24-2016 10:32 PM
"Insert Picture\Link to File..." embeds picture	sinz54	Drawing and Graphics	1	09-29-2013 06:31 PM
Can I insert a picture into a picture ?	alexcalgary	Drawing and Graphics	2	10-16-2010 03:29 PM