VBAのコンボについて

質問

VBAでプログラミングをしています。
ワークシート上にコンボボックスを配置していて、表示データがコンボ枠内に収まり切れていません。例えば、全角10文字データが4文字しか見えない。
全部文字が見えるように途中で改行したりする方法ってあるんでしょうか？

回答No.3

AKARI0418 · ベストアンサー

失礼いたしました。
どうやら、コンボボックスや、リストボックスでは改行できないようです。

#2さんのおっしゃられるように、幅を動的に変えて表示していくのが無難ではないでしょうか。

AutoSizeプロパティをTrueにするなども有効な手段です。

回答No.2

hige_082

こんな方法も
コントロールツールボックスの方のコンボボックスなら
プロパティのListWidthの値を変更すれば
リスト部分の表示幅が変更可能です

フォームのコンボボックスを使用ならスルーしてください

回答No.1

AKARI0418

改行するにはVbCrLfという組み込みの定数を使用します。
str = "aaa" & VbCrLf & "bbb"
４文字しか見えないということですので、４文字ごとにVbCrLfをはさんでいけばよいと思います。
str = "12345678901234567890"
Result = left(str,4)
For i = 1 To Len(str) / 4 - 1
Result = Result & vbCrLf & Mid(str, 4 * i + 1, 4)
Next i
取り出すときは
Replace(str,VbCrLf,"")
とすれば改行コードは削除されます。

補足

ありがとうございます。
やってみました。VB上でデバックしているときは、変数上では改行コードが反映されていましたが、
エクセルのコンボ内では文字化けが起こってしまっています。
OLEObjectsを使うとよくないのでしょうか？
フォントは普通にMSゴシックです。