Внедрение диаграмм

@MU-GK · Регистрация: 06.01.2017

Author24 — интернет-сервис помощи студентам

В Excel"е есть два типа - Charts и ChartObjects.

Как я понял, разница в том, что Charts это Диаграмма-Лист, а ChartObjects это Диаграмма на Листе.

Добавляется Диаграмма-на-Листе вот так:

Visual Basic

1	ActiveSheet.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).Select

Это получено автоматической генерацией при записи макро.

Отсюда два вопроса:
1. Откуда там взялось Select
2. Как получить ссылку на вновь созданный объект?

На первый вопрос ответ, в общем-то, ясен - объект создается и на него наводится фокус, отчего он становится ActiveChart.
Тип у него Chart

Скорее всего, ссылка так и получается

Visual Basic

1 2	Dim cho As Chart Set ChO = ActiveChart

Но вопросы остаются.

Например, чем отличаются свойства:
SeriesCollection и FullSeriesCollection

@pashulka · 18.12.2017, 07:51

Visual Basic

1	Set ChO = ActiveSheet.ChartObjects.Add(ActiveCell.Left, ActiveCell.Top, 300, 300)

@MU-GK · 18.12.2017, 15:29 **[ТС]**

работает!
Собственно, я и сам так делал, но не вставало куда надо.
Ошибка моя заключалась в том, что я думал, что при срабатывании RefEdit выбранная ячейка сама собой активируется, а она, оказывается не активируется, активной ячейкой остаётся та, где курсор стоял до запуска формы с RefEdit.
Теперь я принудительно активирую нужную ячейку и всё работает как надо.

Благодарствую!

@pashulka · 19.12.2017, 17:55

В случае с RefEdit также нет необходимости в активации,

Visual Basic

Private Sub CommandButton1_Click()
    If TypeOf Evaluate(RefEdit1.Value) Is Range Then
       With Application.Range(RefEdit1.Value)
            .Worksheet.ChartObjects.Add .Left, .Top, 300, 300
            Me.Caption = "Выбран " & .Address(, , , True)
       End With
    Else
       Me.Caption = "Выберите ориентир для диаграммы"
    End If
End Sub

@MU-GK · 19.12.2017, 22:50 **[ТС]**

Не знал про функцию Evaluate, надо будет изучить

@pashulka · 20.12.2017, 18:28

Вариант без Evaluate

Visual Basic

Private Sub CommandButton1_Click()
    On Error Resume Next
    Dim c As Range
    Set c = Application.Range(RefEdit1)
    If Not c Is Nothing Then
       c.Parent.ChartObjects.Add c.Left, c.Top, 300, 300
       Caption = "Выбран " & c.Address(External:=True)
    Else
       Caption = "Выберите ориентир для диаграммы"
    End If
End Sub

@MU-GK · 20.12.2017, 18:48 **[ТС]**

Нет, я понял, нормально всё.

Активировать или нет ячейку - это конкретика.
Когда надо, когда не надо

@MU-GK · 07.02.2018, 23:23 **[ТС]**

pashulka, помогите ещё раз!
Дело в том, что мой комп пал жертвой обновлений Windows 10, так что пришлось форматировать диск и устанавливать заново Windows 8 и MS Office 2007, так что код, писавшийся под MS Office 2013 хандрит.
Вот в этом коде:

Visual Basic

ChO.Chart.SeriesCollection.NewSeries
    ChO.Chart.FullSeriesCollection(2).Name = "Copy"
    ChO.Chart.FullSeriesCollection(2).XValues = sXValue
    sYValue = SWChartRange("SW", SWRow + 1, 2, SWRow + 1, NY + 1)
    ChO.Chart.FullSeriesCollection(2).Values = sYValue

предназначенном для добавления на Chart новой серии, не распознаётся FullSeriesCollection. Чем заменить?

Добавлено через 1 час 11 минут
Всё, нашёл.
Надо использовать SeriesCollection и всё в порядке.
Интересно, для чего понадобилось вводить это Full?

@pashulka · 08.02.2018, 13:18

Если диаграмма построена на основании диапазона, содержащего скрытые ячейки, а установлена опция, что-то типа, учитывать только видимые ячейки, то seriescollection будет игнорировать скрытые ячейки, а fullseriescollection, нет (если верить справке, которую никто не читает)

@MU-GK 32 / 29 / 1 Регистрация: 06.01.2017 Сообщений: 297
	20.12.2017, 18:48 [ТС]	26
	Нет, я понял, нормально всё. Активировать или нет ячейку - это конкретика. Когда надо, когда не надо 0

@MU-GK 32 / 29 / 1 Регистрация: 06.01.2017 Сообщений: 297
	18.12.2017, 15:29 [ТС]	22
	работает! Собственно, я и сам так делал, но не вставало куда надо. Ошибка моя заключалась в том, что я думал, что при срабатывании RefEdit выбранная ячейка сама собой активируется, а она, оказывается не активируется, активной ячейкой остаётся та, где курсор стоял до запуска формы с RefEdit. Теперь я принудительно активирую нужную ячейку и всё работает как надо. Благодарствую! 0

@MU-GK 32 / 29 / 1 Регистрация: 06.01.2017 Сообщений: 297
	19.12.2017, 22:50 [ТС]	24
	Не знал про функцию Evaluate, надо будет изучить 0

@pashulka 4134 / 2238 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	08.02.2018, 13:18	28
	Если диаграмма построена на основании диапазона, содержащего скрытые ячейки, а установлена опция, что-то типа, учитывать только видимые ячейки, то seriescollection будет игнорировать скрытые ячейки, а fullseriescollection, нет (если верить справке, которую никто не читает) 0