Excel ComboBox - automatisch anpassen Dropdown Nur

Question

Ist es möglich, nur die Dropdown-Menü eines ComboBox in einer Userform automatisch anpassen an die Textgröße zu haben, ohne die tatsächliche Größe der ComboBox zu ändern?

Ich habe einige Antworten gefunden, wie man die tatsächliche ComboBox basierend auf den Werten innerhalb autofit, aber das macht die Größe größer als ich eigentlich will (link here).

Das folgende Bild repräsentiert etwas, was ich versuche zu erreichen:

Wer weiß, ob dies überhaupt möglich ist?

Answer 1

Einige der Säulen scheinen ein wenig breit, aber über alles denke ich, der Code die Tropfen Konfiguration nach unten einen ziemlich guten Job macht.

Private Sub ConfigureComboBox() 
    Dim arrData, arrWidths 
    Dim x As Long, y As Long, ListWidth As Double 
    arrData = ComboBox1.List 
    ReDim arrWidths(UBound(arrData, 2)) 

    For x = 0 To UBound(arrData, 1) 
     For y = 0 To UBound(arrData, 2) 

      If Len(arrData(x, y)) > arrWidths(y) Then arrWidths(y) = Len(arrData(x, y)) 

     Next 
    Next 

    For y = 0 To UBound(arrWidths) 

     arrWidths(y) = arrWidths(y) * ComboBox1.Font.Size 
     ListWidth = ListWidth + arrWidths(y) 
    Next 

    With ComboBox1 
     .ColumnCount = UBound(arrWidths) + 1 
     .ColumnWidths = Join(arrWidths, ";") 
     .ListWidth = ListWidth 
    End With 

End Sub 

Beispieldaten aus Excel Sample Data