エクセルVBAのコンボボックスに画像を表示したかったお話

コンボボックス(ComboBox1)に画像を表示したかったお話

結果はコンボボックスに画像は表示できなかったので

Frameコントロールと、Lavelコントロールを組み合わせて

擬似的なコンボボックスを作成して解決

線の種類を選ぶときに文字ではなく図から選びたかった

f:id:gogowaten:20191018113034p:plain

↑こんなふうにしたかった

できあがったのは

f:id:gogowaten:20191018113046p:plain

これ

http://www.geocities.jp/gogowaten/excel_animation06.gif

動いているところ

f:id:gogowaten:20191018113105p:plain

エクセルVBAにはコンボボックスっていう便利なコントロールがあるけど

文字だけで図、画像は表示できない

ググって

画像も表示するには

VBA全般：「画像付のコンボボックス表示」 - 意の中のカワズ（35歳の壁別館）

http://d.hatena.ne.jp/bs_n/20110927/1317116071

ここを見ると

ImageListとImageComboboxっていうコントロールを使えばいいみたいなんだけど

僕の環境のWindows8.1とエクセル2007では使えない

f:id:gogowaten:20191018113117p:plain

こんなエラーが出てImageListに画像が登録できない

次のクラスは登録されていません。次の CLSID オブジェクトを参照してください。:{7EBDAAE1-8120-11CF-899F-00AA00688B10}

ググって

[PRB] プロパティページを開くと "クラスは登録されていません" と表示される

https://support.microsoft.com/en-us/kb/188331/ja

を見ると

Msstkprp.dllっていうファイルが必要みたいなんだけど無いよ

どうやら昔のエクセル、エクセル2000とかには入っていたらしい

今更昔のエクセルがないと動かないようなアドインは作りたくない！

ってことでImageListを使うことは諦めて(諦める力発動)

別の方法

Private Sub CommandButton1_Click()
    Me.Frame1.Visible = Not Me.Frame1.Visible 'フレームの表示のオンオフ
End Sub

Private Sub Label項目1_Click()
    Me.Label選択した画像.Picture = Me.Label項目1.Picture 'Label選択した画像の画像を自分と同じにする
    Me.Frame1.Visible = False 'フレーム1の非表示
End Sub

Private Sub Label項目2_Click()
    Me.Label選択した画像.Picture = Me.Label項目2.Picture
    Me.Frame1.Visible = False
End Sub

Private Sub UserForm_Initialize()
    Me.Frame1.Visible = False
    'Sheet1にあるImageコントロールの画像をLabel項目1と2に割り当てる
    Me.Label項目1.Picture = ThisWorkbook.Sheets("Sheet1").ImageLine直線.Picture
    Me.Label項目2.Picture = ThisWorkbook.Sheets("Sheet1").ImageLineダッシュ.Picture
End Sub