リボンのアイコンをファイルとして保存する(3)

つづき

misora05.hatenablog.com

前回の考察を踏まえて，今回は実験用のコードを記述してみます．

実験用コード

Excel VBAで単純にやってみた．
アイコンの名前(imageMSO属性値)は"Copy"，アイコンのサイズは，32 * 32 を想定しています．

Public Sub TEST_Save_ImageMSO()
    
    Const IMAGEMSO_NAME As String = "Copy"
    
    Dim fso As New Scripting.FileSystemObject
    
    Dim cbs As Office.CommandBars: Set cbs = Application.CommandBars
    
    Dim img As stdole.IPictureDisp
    Set img = cbs.GetImageMso(IMAGEMSO_NAME, 32, 32)
    
    Call stdole.SavePicture(img, fso.BuildPath(ThisWorkbook.Path, IMAGEMSO_NAME & ".ICO"))
    Call stdole.SavePicture(img, fso.BuildPath(ThisWorkbook.Path, IMAGEMSO_NAME & ".BMP"))
    
End Sub

結果．

f:id:misora05:20190310053555p:plain