パワーポイントで同じ色のオートシェイプを形状に関係なく選択するマクロ

パワーポイントで同じ色のオートシェイプを形状に関係なく選択する方法（マクロのソースコードなど）をお教えください。また、同じ色で同じ形状のオートシェイプのみを選択する方法もすぐにわかれば合わせてお願いできると助かります。

これは素晴らしい。
自分が実際欲しかったのは追加質問の「ラインまたは枠の色が同じものだけについて選択する」だったので、コピペ用にメモ。

Sub SelectSameLineColor()
  Dim ShapesCount As Integer
  Dim ArrayIndex As Integer

  ShapesCount = ActiveWindow.Selection.SlideRange.Shapes.Count
  ArrayIndex = 0
  ReDim ShapesArray(1 To ShapesCount)

  For i = 1 To ShapesCount
    If ActiveWindow.Selection.SlideRange.Shapes.Item(i).Line.ForeColor = ActiveWindow.Selection.ShapeRange.Line.ForeColor Then
      ArrayIndex = ArrayIndex + 1
      ShapesArray(ArrayIndex) = ActiveWindow.Selection.SlideRange.Shapes.Item(i).Name
    End If
  Next

  ActiveWindow.Selection.SlideRange.Shapes.Range(ShapesArray).Select
End Sub