Inserting pictures in a word document launched from another application

macropod · #2 11-13-2017, 02:01 PM

1. Given that you're running a new Word session, you don't need CreateObject; you can use New instead.
2. You need to be specific as to which application your Shape belongs; otherwise it is assumed to belong to the calling app, not the called one.
3. You don't need ActiveWindow.Selection; instead you can tell Word precisely where the pic should go.

Try something along the lines of:

Code:

Dim wdApp As New Word.Application, wdDoc As Word.Document, wdShp As Word.Shape

wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add
Set wdShp = wdDoc.InlineShapes.AddPicture(FileName:="C:\MyPicture.jpg", LinkToFile:=False, _
  SaveWithDocument:=True, Range:=wdDoc.Range.Characters.Last).ConvertToShape

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word Table inserting Pictures	stu_c	Word Tables	2	07-28-2022 02:39 PM
Office 365 application crash on inserting jpg	MichaelBourne	Office	5	03-14-2018 01:40 PM
Inserting 3 pictures in a row in Word	didlinghill	Word	3	05-22-2017 03:55 AM
how keep word document highlighted when switching focus to another application?	dylansmith	Word	4	05-08-2013 01:21 AM
Inserting scanned pictures into word files	Rosie173	Drawing and Graphics	9	05-11-2011 02:51 PM