11.01.2008 я попросил здесь о помощи, чтобы включить и переместить метки на панели диаграммы.
Однако я получил два ответа, которые не помогли мне найти решение.
Поэтому я снова погуглил много страниц, но безуспешно.
Тогда я начал пробовать некоторые инструкции кода VBA.
Во-первых, у меня .SeriesCollection(1) and .SeriesCollection(2) работает хорошо
Я решил добавить .SeriesColletion(3), который генерирует третий бар.
В третьем столбце я вставил метки, а затем «.SeriesCollection (3) .Format.Fill.Visible = msoFalse».
В третьем столбце я вставил метки, а затем .SeriesCollection(3).Format.Fill.Visible = msoFalse
Теперь диаграмма xlBarStack показывает столбцы и метки со значениями, которые мне нужны.
Однако я не уверен, является ли кодирование для трех .SeriesCollection оптимальным и безопасным для запуска без ошибок.
Поэтому я ценю, что кто-то здесь может мне помочь.
Кроме того, иногда, когда я запускаю код во второй раз, VBA отображает сообщение Error 462 Remote server computer does not exist or is not available.
Ошибка всегда возникает здесь:
Set a = Range ("A2: A" & Rows.Count)
Эти строки кода добавляются в:
Set a = Range ("A2: A" & Rows.Count)
Установить a = диапазон («A2: A» & Rows.Count) ',' установить b = диапазон («A2: B» & Rows.Count)
Переменные a и b имеют размеры:
Dim a As Excel.Range, Dim b As Excel.Range
Для этого кода я ранее тестировал
On Error GoTo errortrap после определения параметров переменных и
Exit Sub
errortrap: MsgBox Err.Description` перед End Sub.
Но график не был создан.
Как я могу исправить ошибку 462?
Приветствия