Как подвинуть диаграмму на листе Excel в нужное место?

[igor_m]

С ходу не получается найти. Прошу помощи.

При создании диаграммы макросом
dim diag as chart
Set diag = Charts.Add
diag.Location xlLocationAsObject, "Sheet1"
Она помещается в середину листа.
Как подвинуть ее в нужное место, чтобы ее top & left совпали с top & left ячейки B30 ?

Это делается в абсолютных единицах (т.е. просуммировать высоту всех предыдущих строк и ширину столбцов) или можно относительно ячейки задать координаты? И что за объект, который включает диаграмму, и координаты которого можно задавать? И как изменить размер диаграммы (width & height)?

В общем нужно вписать диаграмму точно в нужное место на листе относительно определенной ячейки.
Кому не трудно - просто напишите решение. Excel 2010.

[Qwertiy]

Записать макрос и посмотреть код не подходит?

[igor_m]

Макрос чего? Increment ??? Так диаграммы должны каждый раз вставать в разное место в зависимости от того какого размера таблица сформируется.
Т.е. мне нужно не просто всегда вставлять ее в одно место, а расчитывать координаты куда вставить - четкая привязка есть к ячейкам.

И дубовое решение сосчитать высоту всех строк и ширину столбцов и подвинуть - так сделано. Должен же быть более нормальный путь для таких случаев.

For i = 1 To iStr + 3
h = h + .Rows(Trim(Str(i)) & ":" & Trim(Str(i))).RowHeight
Next i
.Shapes("Диаграмма 1").Top = h
.Shapes("Диаграмма 1").Left = .Columns("A:A").ColumnWidth

Потом я еще не понимаю как к диаграммам обращаться. Их несколько. diag.Name и diag.Index не работают. Вот так обращаться: .Shapes("Диаграмма 1") - это нужно учитывать очередность в которой они создаются и уже по такому имени двигать в нужное место - тоже не сильно удобно.

Кто умеет, помогите пожалуйста. Как подвинуть диаграмму (т.е. левый верхний угол всей области диаграммы) в левый верхний угол определенной ячейки ? Excel 2010.

[Qwertiy]

Макрос чего?

Перемещения диаграммы.

И дубовое решение сосчитать высоту всех строк и ширину столбцов и подвинуть так сделано.

Собственно, я про это и думал.

Например, вот вариант, полученный записью макроса:

Код: Выделить всё

    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.Parent.Cut
    Range("E13").Select
    ActiveSheet.Paste

А вот правильный вариант:

Код: Выделить всё

    Dim Chart As Shape, Cell As Range
    Set Chart = ActiveSheet.Shapes("Chart 3")
    Set Cell = ActiveSheet.Cells(13, 5)
    Chart.Left = Cell.Left
    Chart.Top = Cell.Top

[Qwertiy]

Потом я еще не понимаю как к диаграммам обращаться.

Весьма вероятно, что метод Add уже сам возвращает нужный объект - дальше с ним и работать, а имена вообще не использовать.

[igor_m]

Спасибо.
Cut/Paste работает. Начало есть.

Очень благодарю. Привязка к диапазону (ячейки) - то, что нужно.

[Qwertiy]

Cut/Paste работает. Начало есть.

Эм.. А чем второй вариант не угодил? Он же лучше.

[igor_m]

Не успел сразу опробовать.
Теперь попробовал и оценил. Спасибо, а то время поджимает, все найти самому.

[Template]

igor_m, На самом деле координаты диаграммы можно задавать сразу при ее создании, т.e. :

Код: Выделить всё

Dim cell As Range, diag As ChartObject

Set cell = Worksheets("Sheet1").Range("B30")
Set diag = Worksheets("Sheet1").ChartObjects.Add(cell.Left, cell.Top, 300, 200)

[igor_m]

Template,
тоже спасибо.

[Qwertiy]

На самом деле координаты диаграммы можно задавать сразу при ее создании

Спасибо. А то я в Excel'е полазил, а в справку заглянуть даже не подумал

[Sam777e]

Потом я еще не понимаю как к диаграммам обращаться. Их несколько. diag.Name и diag.Index не работают. Вот так обращаться: .Shapes("Диаграмма 1") - это нужно учитывать очередность в которой они создаются и уже по такому имени двигать в нужное место - тоже не сильно удобно.

Создал диаграмму - дал ей осмысленное имя, создал другую - дал ей другое осмысленное имя, ...
Naming an Excel Chart
http://peltiertech.com/Excel/ChartsHowTo/NameAChart.html