title: How can I use VBA code to access auto-populated shades of Mso Theme Accent colors?
body: <p>I'm writing a VBA Powerpoint macro to change the fill color of a text box to a shade of my Office theme's Accent 1 color. If I wanted to make the fill color the Accent 1 color itself, I would write it like this:</p>
  <pre><code>ActivePresentation.Slides(1).Shapes(1).Fill.ForeColor.SchemeColor = MsoThemeAccent1
  </code></pre>
  <p>However, instead of the Accent 1 color, I want the auto-generated &quot;Accent 1, Lighter 80%&quot; shade from the palette. Here is the accent shade I'm trying to access with my code.</p>
  <p><img src="https://i.stack.imgur.com/QeCRI.png" alt="Here is the accent shade I'm trying to access with my code." /></p>
  <p>I want to write the macro so the color is always the &quot;Lighter 80%&quot; shade value of the Accent color, so that it's dynamic if a different theme is chosen (i.e. don't want to write it as a fixed RGB value). The problem is that I don't see these shade values enumerated in the ColorScheme Index, and these shades are not uniform .TintAndShade values across themes. Is there a way to call a theme's accent colors' shades by name rather than RGB code?</p>