[VBA] Расположение диаграммы со ссылкой на рабочие таблицы

excel vba excel-vba

116 просмотра

1 ответ

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

Public DataSheet As Worksheet
Public Graph As Chart
Public Cat_3, Cat_4, Cat_5 As Range

Set DataSheet = Worksheets("DataSheets")
Set Cat_3 = DataSheet.Range("c2:c16")

Set Graph = Charts.Add
Graph.SeriesCollection.NewSeries
Graph.SeriesCollection(1).Values = Cat_3
Set Graph = Graph.Location(Where:=xlLocationAsObject, Name:=DataSheet)

Я получаю сообщение об ошибке в последний раз, какие-либо предложения по этому поводу?

Спасибо!

Автор: Warawut Nualplaud Источник Размещён: 08.11.2019 11:21

Ответы (1)


1 плюс

Решение

использование

Graph.Location Where:=xlLocationAsObject, Name:=DataSheet.Name

Более того, вы можете использовать более надежный синтаксис, как показано ниже:

Set Graph = Charts.Add
With Graph
    .SeriesCollection.NewSeries
    .SeriesCollection(1).Values = Cat_3
    .Location Where:=xlLocationAsObject, Name:=DataSheet.Name
End With
Автор: user3598756 Размещён: 20.08.2016 01:27
32x32