VBNet - Форум - СРОЧНО! Макрос на построение диаграммы в excel!

Вопрос: СРОЧНО! Макрос на построение диаграммы в 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
	activechart.hasdatatable=true ? Ответить

Номер ответа: 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
	ОООООООО, УРА. Все у меня получилось!! )) Ответить

Страница: 1 |