Вопросы по ComboBox

[brik]

есть вопросы по реализации комбобоксом выпадающего списка на листе с данных с другого листа
в примере часть сделана - как сделать остальное ?

1.Как задать область по ширине автоматом по длине самого длинного текста
За ширину отвечает параметр свойств ComboBox (в режиме Конструктора менять) под названием ListWidht - принудительно можно задать например 100 а как сделать автоматом ? Как прописать его макросом на автом ширину ?


2.Как задать область по высоте автоматом по заполненному диапазону и исх список на другом листе
Решено

Sub FillCombo()
Const iRow = 65536: iClm = "D"
sn = Лист2.Name
iRws = Sheets(sn).Range(iClm & iRow).End(xlUp).Row
ComboBox1.ListFillRange = sn & "!" & iClm & "4:" & iClm & iRws 'начиная с 5 строки списка на листе2 лучше 4 чтоб строка оставалась пустая в начале
'iRws = Sheets(2).Columns(iClm).Rows(iRow). End(xlUp).Row
'ComboBox1.ListFillRange = "Лист2!D4:D" & iRws
Me.ComboBox1.Value = ActiveCell.Value
Me.ComboBox1.Font.Size = 8
End Sub

3.Как сделать так чтоб нельзя было добавить свое значение в ComboBox
как автоматом ввксти это значение в макросе чтоб в свойства ComboBox не лазить
Style 0-fmStyle DropDownСombo - можно ввести
Style 2-fmStyle DropDownСombo - нельзя ввести
примерно так видимо ComboBox1.Style .fmStyleDropDownList =2 правильно ли так будет


4.Как сделать так чтоб при добавлении своего значения в ComboBox
это значение появлялось в исходном списке на листе 2 с выбором действия MsgBox
По аналогии с Выпадающий список с добавлением новых элементов
http://www.planetaexcel.ru/techniques/1/35/ но там вставка через Проверка данных-Список а нужно через комбобокс

5.Как сделать так чтобы поле в ComboBox появлялось не снизу а сверху комбобокса и смещено влево как на рис




6.Как сделать формат ячейки (куда вставляется значение из комбобокс ) таким же какой находится в исходном списке на листе 2
те если на листе2 ячейка красная и текст жирный то на листе1 при вставке комбобоксом в ячейку значения формат ячейки изменился - стала тоже красная и текст жирным