Inserting an image in a Word table using macro in Excel

[haplc]

Hi there

I am using an excel macro top open a word document which is containing a table.
I need to select a cell and then insert a picture (lets say c:\temp\pic.jpg) in cell (1,3)

To select the cell, I am using this code and I am able to select
objWord.ActiveDocument.tables(1).cell(1, 3).Select

Please tell me how to add a picture in cell (1,3) from a macro in excel

Thanks

 

[Worf]

Hi

Try something like this:

' Excel module
Sub Open_Paste()
Dim ow As Object, tb As Word.Table, fn$
Set ow = CreateObject("Word.Application")
ow.Visible = True
ow.Documents.Open "C:\pub\doc2.docm"
With ow.ActiveDocument
    Set tb = .Tables(1)
    fn = "c:\Pub\uf.jpg"
    .InlineShapes.AddPicture fn, False, True, tb.Rows(1).Cells(3).Range
End With
End Sub

 

[haplc]

thanks a lot