title: How to recolor Shapes/Lines
body: <p>I have Shapes/Lines I need to recolor.</p>
  <p>The problem I encounter is I can't just highlight everything and change line color, or Text Shapes that have no line color will then also now have lines.</p>
  <p>How can I either take 2 reference variables for the select color and the recolor, or have the select color based off a currently selected object.</p>
  <p>I want to recolor everything from Green to Black.</p>
  <p>This is what I hashed together from other guides on the web. It selects objects without lines still (not a lot but some) and won't target anything that's within a group.</p>
  <pre class="lang-vb prettyprint-override"><code>Sub Test()
      Dim s As Shape
      For Each s In ActivePage.Shapes
        If s.Cells(&quot;LineColor&quot;).ResultStr(0) = &quot;RGB(0, 176, 80)&quot; Then
          ActiveWindow.Select s, visSelect
        End If
      Next
  End Sub
  </code></pre>