Sub Test() Dim s As Shape Dim sr As New ShapeRange For Each s In ActivePage.Shapes If s.Type = cdrDropShadowGroupShape Then If s.Effect.DropShadow.Type = cdrDropShadowFlat Then sr.Add s.Previous ' To select the control shape sr.Add s ' To select the shadow bitmap itself End If End If Next s sr.CreateSelectionEnd Sub