Be the first user to complete this post
|
Add to List |
VBA-Excel: Add/Insert a Image/Picture in Word Document
To Add or Insert Images or Pictures in Microsoft Word Document using Microsoft Excel, you need to follow the steps below:
- Create the object of Microsoft Word
- Using MS word object, Open the existing word document by providing the complete path
- Make the MS Word visible
- Create a Selection object with the help of WordObject.
- Set Shapes object using InlineShapes
- Insert image in the word documents using AddPicture()
Create the object of Microsoft Word
Set objWord = CreateObject(“Word.Application”)
Using MS word object, Open the existing word document by providing the complete path
Set objDoc = objWord.Documents.Open("D:\OpenMe.docx")
Make the MS Word Visible
objWord.Visible = True
Create a Selection object with the help of WordObject.
Set objSelection = objWord.Selection
Set Shapes object using InlineShapes
Set objShapes = objDoc.InlineShapes
Insert image in the word documents using AddPicture()
objShapes.AddPicture (strCompleteImagePath)
Complete Code:
Function FnImageInsert(strCompleteImagePath) Dim objWord Dim objDoc Dim objSelection Dim objShapes Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open("D:\OpenMe.docx") objWord.Visible = True Set objSelection = objWord.Selection objSelection.TypeText (vbCrLf & "One Picture will be inserted here....") Set objShapes = objDoc.InlineShapes objShapes.AddPicture (strCompleteImagePath) End Function
Call FnImageInsert("D:\After_Rain.jpg")

Also Read:
- VBA-Excel: Get ALL The Opened Internet Explorer (IE) using Microsoft Excel
- Excel-VBA : Prevent Changing the WorkSheet Name
- Excel-VBA : Send a Simple Mail From MS Outlook Using Excel
- VBA-Excel: Convert Numbers (Rupees) into Words OR Text - Updated Till 1000000 Crore With Decimal Numbers
- VBA-Excel: Get the Instance of already opened word document