Размеры дропдауна в ComboBox

[grigrim]

У меня в ворде на странице есть КомбоБокс. В него записываются из файла данные, но каждая запись довольно длинная. Подскажите 2 вопроса: 1. Как получить в комбобокс данные из таблицы в экселе? (у меня получилось только из txt); 2. Как установить ширину и высоту дропдауна чтобы вошла вся запись целиком?

[alibek]

Покажи, как ты делаешь это с текстовым файлом.

[grigrim]

Код: Выделить всё

Private Sub Document_Open()

Dim TextLine
Dim k As Byte ' Счетчик строк в текстовом файле
Dim l As Integer ' Счетчик максимальной длины записи в ComboBox
k = 1
l = 0
Open "text1.txt" For Input As #1    ' Open file.
Do While Not EOF(1)    ' Loop until end of file.
    Line Input #1, TextLine    ' Read line into variable.
    ComboBox1.AddItem TextLine, k - 1
    If Len(TextLine) > l Then l = Len(TextLine)
    k = k + 1
Loop
ComboBox1.ColumnWidths = l * 4.5
Close #1    ' Close file.

End Sub

[alibek]

Код: Выделить всё

Dim R0 As Long
R0 = 1
Do Until IsEmpty(ActiveWorkbook.Sheets("Sheet1").Cells(R,1).Value
  Combo1.AddItem ActiveWorkbook.Sheets("Sheet1").Cells(R,1).Text
  R = R + 1
Loop

[grigrim]

А при чем тут ActiveWorkbook, если я в ворде работаю, а из экселя долько данные беру и даже не открываю экселевский файл?

[alibek]

ActiveWorkbook - это открытая книга Excel, с которой тебе нужно брать данные. Можешь заменить на objWB, где objWB = objExcel.ActiveWorkbook, а objExcel=CreateObject("Excel.Application").

[grigrim]

А что подскажете насчет размеров строк в дропдауне?
То есть мне, скажем, как сделать для каждой строки дропдауна мультилайн?

[alibek]

Никак. Используй User Control для этой цели.