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

つづき

前回は，リボンのアイコンをファイルとして保存するに際して必要な「前提」について述べました．
今回からは「実践」に入ります．

これがMicrosoft Office単体でできれば，まぁもちろん言うことなしです――元々，ツールの使用が制限された，私の昼の職場を想定していますしね．

こういうときはとりあえず，VBEのオブジェクト・ブラウザでキーワードとなる文言を検索してみましょうか．
あたまの構造が単純な私には，まぁその方が性に合っていますｗ

で，今回のキーになりそうなのはimageMSO属性なので，imagemsoで検索，‥

‥なんかいる‥．GetImageMsoメソッドとかいうすごくそれっぽいものが‥．
このメソッドについて検索してみると，

Function GetImageMso(idMso As String, Width As Long, Height As Long) As IPictureDisp

戻り値はIPictureDispなる型らしいので，それをオブジェクト・ブラウザで見てみましょうか．
そもそも，これがどのライブラリ所属なのかもわからないですからね．

stdoleの所属でしたか．
「stdoleなんて見たことない」という方もおられると思いますが，「最初から使えるやつ」くらいに思っておけば，まぁ間違いないと思います(適当)．

では，とりあえずstdoleで何ができるのかを，オブジェクト・ブラウザで見てみましょうか．

‥またもなんかいる‥．SavePictureメソッドとかいう，すごくそれっぽいものが‥．しかも，宣言を見ると，

Sub SavePicture(Picture As IPictureDisp, filename As String)

なんか見えてみた気がする．つまり

適当なアイコンを示すimageMSO属性の値をidMSOとして，その幅・高さとしてそれぞれ適当な値をWidth・Heightとして，GetImageMsoメソッドを呼び出す
すると，アイコンのイメージを示すIPictureDisp型のオブジェクトが返される．
これを第一引数，保存先のパスを第二引数として，SavePictureメソッドを呼び出す．
すると，そこにアイコンが何らかの画像形式で保存されている！