Страница: 1 |
Страница: 1 |
Вопрос: СРОЧНО! Макрос на построение диаграммы в excel!
Добавлено: 01.12.05 07:43
Автор вопроса: Смайли
Здравствуйте! Я столкнулась с проблемой написания кода на VBA для построения диаграммы. Нужна в диаграмме таблица данных. Когда записывала макрос, код вывел ошибку в нем:
Код:
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Широкая гистограмма"
ActiveChart.SetSourceData Source:=Sheets("Заявка").Range("A5:J7"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Заявка"
и .......
потом
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.Walls.Select
!!! вот тут ошибка,он почему-то не может присвоить объект что ли:
' "Таблица данных".Comment.Shape.Select
ActiveChart.PlotArea.Select
Selection.Width = 674
ActiveChart.SeriesCollection(9).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Помогите пож-та как написать код для вывода таблицы данныех с ключами данных. Заранее благодарна. Жду с нетерпением. Пока.
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
GSerg
Вопросов: 0
Ответов: 1876
Профиль | | #1
Добавлено: 01.12.05 09:34
Номер ответа: 2
Автор ответа:
Смайли
Вопросов: 2
Ответов: 4
Профиль | | #2
Добавлено: 02.12.05 06:10
Да это я уже вставила, спасибо). Вот он теперь ошибку вдает снова там где нужно установить коментарии и шрифты для этой таблицы данных.
Вот это вписала:
ActiveChart.HasDataTable = True
ActiveChart.DataTable.ShowLegendKey = True
а ошибку пишет на следующее:
ActiveChart.DataTable.Comment.Shape.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.FontStyle = "îáû÷íûé"
.Size = 12
End With
Пишет: object doesn't support this property or method.
А мне обязательно нужно выводить по нужному шрифту. Помоги пож-та если сможите. Очень жду
Номер ответа: 3
Автор ответа:
Смайли
Вопросов: 2
Ответов: 4
Профиль | | #3
Добавлено: 02.12.05 06:43
ОООООООО, УРА. Все у меня получилось!! ))