Заполнение ComboBox со списком диаграмм на листе

Я устал от форматирования осей вручную, чтобы увеличить данные на диаграммах рассеяния, поэтому я создаю пользовательскую форму с помощью осей. Я хочу, чтобы он был легко повторно использован для многих диаграмм во многих листах, поэтому я не собираюсь хранить диапазоны осей на листе. Вот моя пользовательская форма:

введите описание изображения здесь ,
Текстовые поля называются YMaxEnter , YminEnter , XminEnter и XMaxEnter .
В comboBox наверху (ComboBox1) должен быть список диаграмм на текущем листе. Когда я выбираю один, четыре текстовых поля должны заполняться соответствующими .Axes(xlValue).MinimumScale и т. Д.

 Private Sub UserForm_Initialize() Dim thisChart as Chart For Each thisChart In ActiveWorkbook.Charts 'Nothing happens after the ForEach ComboBox1.AddItem (thisChart.ChartTitle.Caption) Next End Sub Private Sub ComboBox1_AfterUpdate() `Some code that gets the Chart object, cht, back from ComboBox1 YMinEnter.Value = cht.Axes(xlValue).MinimumScale YMaxEnter.Value = cht.Axes(xlValue).MaximumScale XMinEnter.Value = cht.Axes(xlCategory).MinimumScale YMaxEnter.Value = cht.Axes(xlCategory).MaximumScale End Sub 

Тогда у меня будут такие подпрограммы, но с некоторой проверкой ошибок добавлено:

 Private Sub YMaxEnter_AfterUpdate() 'Again, code to get the chart object, cht, out of ComboBox1. cht.Axes(xlValue).MaximumScale = MaxEnter.Value End Sub 

Однако мой первый шаг не работает, но цикл инициализации comboBox ничего не делает. For Each thisChart In ActiveWorkbook.Charts не вызывает ошибку, но она не заполняет никаких значений, и процедура никогда не переходит к следующей строке ( ComboBox1.AddItem (thisChart.ChartTitle.Caption) )

Я знаю, что у меня возникнут дополнительные проблемы во второй рутине (получение объекта диаграммы обратно из combobox), но сейчас я не могу даже получить атрибут диаграмм в combobox.

Все предложения приветствуются.

  • Excel VBA - не может ссылаться на объекты / не может отбрасывать информацию в лист
  • Ошибка выполнения VBA Excel VBA -2147319767 (80028029)
  • Мой ComboBox не отображает значения, которые я добавил в VBA
  • Измените пользовательскую форму для работы с несколькими листами
  • Передача данных между UserForms
  • Как добавить сразу несколько строк данных из UserForm в Excel DataBase
  • Сохранение рабочих листов с формами в формате pdf
  • Excel VBA Userform, обновить и удалить базу данных,
  • Скрыть закрытую кнопку в пользовательской форме excel vba для моей панели выполнения
  • Можете ли вы использовать оператор if, чтобы решить, в чем UserForm помещать информацию?
  • Переместить строку из пользовательской формы в активную ячейку, которая называется формой
  • Давайте будем гением компьютера.