How to read an inlineshape which is stored in a table cell

dherr · #1 01-11-2018, 04:24 PM

Hi,
in my Word2007 document I have a column, where in each cell is an inlineshape (picture).

Now I tried to read such a picture from a cell to copy it into another document via macro. Found no solution yet.
Who has a tipp?

Regards - Dietrich

macropod · #2 01-11-2018, 07:23 PM

Try something based on:

Code:

Sub Demo()
Dim Rng As Range
Set Rng = ActiveDocument.Tables(1).Cell(1, 1).Range
Rng.End = Rng.End - 1
Documents.Add
ActiveDocument.Range.FormattedText = Rng.FormattedText
End Sub

or:

Code:

Sub Demo()
Dim Rng As Range
Set Rng = ActiveDocument.Tables(1).Cell(1, 1).Range.InlineShapes(1).Range
Documents.Add
ActiveDocument.Range.FormattedText = Rng.FormattedText
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Changing a spreadsheet from # stored as text to stored as #?	markg2	Excel	11	02-10-2017 08:54 AM
Macro will not read the value of cell with a formula in it!	grayson1231	Excel Programming	10	03-28-2015 03:47 PM
Read cell from one table into another	donaldadams1951	Word VBA	2	02-04-2015 06:46 PM
Move table cell contents from one table to another table or cell in same table	donaldadams1951	Word VBA	4	02-04-2015 03:54 PM
Easy send/save Excel data to Database Table or Stored Procedure	TonyHarvard	Excel	3	07-11-2012 12:43 PM