Returns a ShapeRange collection representing the same set of inline shapes as the InlineShapes collection whose method was called. This allows for miscellaneous formatting of the contained shapes. Read-only.
expression.Range(Index)
expression Required. An expression that returns one of the objects in the Applies To list.
Index Optional Long. The index position of the inline shape within the ShapeRange.
Range property as it applies to the Hyperlink object.
Returns a TextRange object representing the base text to which the specified hyperlink has been applied.
expression.Range
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
If the Type property of the specified Hyperlink object is a value other than msoHyperlinkRange, the Range property returns nothing.
Example
As it applies to the InlineShapes collection.
The following example searches through each shape on the first page of the publication, and for all inline shapes within each shape, finds the first inline shape within the range of inline shapes and flips it vertically.
Dim theShape As Shape
Dim theShapes As Shapes
Set theShapes = ActiveDocument.Pages(1).Shapes
For Each theShape In theShapes
With theShape.TextFrame.TextRange
.InlineShapes.Range(1).Flip (msoFlipVertical)
End With
Next
As it applies to the Hyperlink object.
The following example returns the text range associated with the first hyperlink on page one of the active publication and changes the base text to "Go here."
Dim txtHyperlink As TextRange
txtHyperlink = ActiveDocument.Pages(1) _
.Shapes(1).Hyperlink.Range
txtHyperlink.Text = "Go here"