ShapeRange.Reflection (Word)

Returns a ReflectionFormat object that represents the reflection formatting for a range of shapes.

Dim sre As ShapeRange: Set sre =  
Dim rftReflection As ReflectionFormat
Set rftReflection = sre.Reflection