Microsoft Office Forums - View Single Post - [Solved] How to read an inlineshape which is stored in a table cell

macropod · 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