title: How to change fill color for inserted picture (icon) in Excel 2016 with VBA
body: <p>Trying to add an 'Icon' (the one under the 'Insert' tab - not the conditional formatting ones) and change the fill color. Using the macro recorder results in the following code:</p>
  
  <pre><code>Sub Macro1()
  
      ActiveSheet.Pictures.Insert( _
          "https://hubblecontent.osi.office.net/ContentSVC/Content/Download?provider=MicrosoftIcon&amp;fileName=Document.svg" _
      ).Select
      With Selection.ShapeRange.Fill
          .Visible = msoTrue
          .ForeColor.ObjectThemeColor = msoThemeColorAccent1 'this line throws the error
          .ForeColor.TintAndShade = 0
          .ForeColor.Brightness = -0.25
          .Transparency = 0
          .Solid
      End With
  
  End Sub
  </code></pre>
  
  <p>Which was expected as it's the same code used to change the fill color of a 'Shape'. The problem is that the code doesn't actually work. It throws a run-time error <code>The specified value is out of range</code>. </p>
  
  <p>While trying to figure it out I noticed when right clicking on the inserted 'Icon' that the 'Fill' option is disabled, which is obviously not the case when inserting manually. I suspect it has something to do with the 'Pictures' object as opposed to 'Shapes' and/or the need to pull the image info from the interwebs, but I'm no expert. That's why I'm here.</p>
  
  <p>What I want to know is if this is doable through VBA or if I should just take a different route?</p>