Sub Test() Dim s As Shape, ext As EffectExtrude Dim sr As New ShapeRange For Each s In ActivePage.Shapes If s.Type = cdrExtrudeGroupShape Then Set ext = s.Effect.Extrude If ext.FaceVisible = False Then sr.Add ext.FaceShape If Not ext.ShowBevelOnly Then sr.Add s If ext.UseBevel Then sr.Add ext.BevelGroup End If End If Next s sr.CreateSelection End Sub