ExcelVBA 挿入タブのアイコンを挿入する方法

質問

Excelの「挿入」タブの「図」グループの「アイコン」の中の
アイコンをシートに挿入して
色を変更するVBAはどのように記述すればよいでしょうか。
(Windows10,Excel2016)

例えば、
「ビジネス」の所にある「クリップ」のアイコンを挿入する場合、(上図)
マクロの記録で記録すると、
ActiveSheet.Pictures.Insert("https://hubblecontent.osi.office.net/ContentSVC/Content/svg/Paperclip.svg").Select
というコードが生成されます。
このコードを実行するとクリップのアイコンがシートに挿入されますが
色を変更するにはどのようにすればよいでしょうか。
下記のコードではエラーになります。(下図)
どこを直せばよいでしょうか。

Sub sample()
　ActiveSheet.Pictures.Insert("https://hubblecontent.osi.office.net/ContentSVC/Content/svg/Paperclip.svg").Select
　Selection.ShapeRange.Fill.ForeColor.RGB = RGB(50, 0, 200)
End Sub

回答No.1

imogasi

https://support.office.com/en-us/article/error-containing-url-http-hubblecontent-osi-office-net-when-inserting-an-icon-or-a-picture-753c759d-a73c-457c-8328-30b90ab81fc3に
「Error containing URL "http://hubblecontent.osi.office.net/" when inserting an icon or a picture」・・
の記事を見つけました。うまく行かないのは、その関連があるのでは。
ーー
単純に、図形挿入の例なら、塗りつぶしの色は
Sub test01()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 50, 200, 50).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 250, 250)
End Sub
の例ではうまく行きます。
参考　ＲＧＢ値　（注）図形では、ColorやColor Indexでは指定できない？
'黒 0 0 0
'青 0 0 255
'緑 0 255 0
'シアン 0 255 255
'赤 255 0 0
'マゼンタ 255 0 255
'黄色 255 255 0
'白 255 255 255