#1
|
|||
|
|||
Inserting pictures in a word document launched from another application
I am trying to create a word document from MS Access which inserts a picture into it. The below code triggers an error at the the last statement. Can anybody tell me what is going on?
Thanks Dim wdApp As Word.Application Dim As Word.Document Dim shp As Shape Set wdApp = CreateObject("Word.APPLICATION") wdApp.Visible = True Set wdDoc = wdApp.Documents.Add Set shp = wdDoc.ActiveWindow.Selection.InlineShapes.AddPictu re(FileName:="C:\MyPicture.jpg", LinkToFile:=False, SaveWithDocument:=True).ConvertToShape |
#2
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
||||
|
||||
Cross-posted at: https://answers.microsoft.com/en-us/...3-dfed8f6aaecd
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Thread Tools | |
Display Modes | |
|
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 |