VBAのコントロールフォームでデータバーが作成できるか

Question

現在、VBAとユーザフォームを組み合わせてアプリケーションを作成しています。
データを可視化する際、Excelのデータバーをフォームで表現できるととても嬉しいのですが、そのようなオプションはあるのでしょうか。
データバーの例→リンク
例えば、ListViewコントロールの数字を入れた列に対してデータバーを表現させるとか。そのような方法はあるでしょうか。

ご存知の方がいましたら、ご教示いただければと思います。
どうぞよろしくお願いします。

Comments

[hatena19]

コントロールフォームとはなんでしょうか。
ユーザーフォームのことでしょうか。
あるいは、フォームコントロールのことでしょうか。

[essa]

修正致しました。
コントロールフォーム　×
↓
ユーザフォーム　　　　〇
です。

Answer 1

一案です。

テキストボックスの背景スタイルを透明にして、背景色を設定したラベルをその背面に配置してその幅を数値に合わせて設定すればどうでしょう。

Option Explicit

Private Sub UserForm_Initialize()
    Me.TextBox1.BackStyle = fmBackStyleTransparent
    Me.TextBox2.BackStyle = fmBackStyleTransparent
    Me.Label1.Width = 0
    Me.Label2.Width = 0
End Sub

Public Sub SetDatabar()
    If IsNumeric(Me.TextBox1.Value) And IsNumeric(Me.TextBox2.Value) Then
        Me.Label1.Width = Me.TextBox1.Width * Val(Me.TextBox1.Value) / (Val(Me.TextBox1.Value) + Val(Me.TextBox2.Value))
        Me.Label2.Width = Me.TextBox2.Width * Val(Me.TextBox2.Value) / (Val(Me.TextBox1.Value) + Val(Me.TextBox2.Value))
    End If
End Sub

Private Sub TextBox1_AfterUpdate()
    SetDatabar
End Sub

Private Sub TextBox2_AfterUpdate()
    SetDatabar
End Sub

バーをグラデーションにしたいなら、ラベルの代わりにイメージコントロールにグラデーション画像を設定すればいいでしょう。

Comments

[essa]

素晴らしすぎますね。。思いつきませんでしたし、思いついたとしても、そんなに早くコードに落とせないです。。
ベストアンサーを送らせていただきます。