работа с любым номером диаграммы

Дата: Суббота, 27.04.2013, 12:47 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Добрый день, подскажите пожалуйста, как сделать, чтобы этот код работал с любым номером диаграммы,
а не только с "диаграммой 1"
[vba]

Код

    End With
     ActiveChart.ChartArea.Select
     ActiveSheet.Shapes("Диаграмма 1").Height = 226.7716535433
     ActiveSheet.Shapes("Диаграмма 1").Width = 430.8661417323
     ActiveSheet.ChartObjects(1).Left = 10
     ActiveSheet.ChartObjects(1).Top = 10
End Sub

[/vba]

Сообщение отредактировал Bandin - Суббота, 27.04.2013, 13:02

Дата: Суббота, 27.04.2013, 13:06 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Как Вы собираетесь указывать номер диаграммы?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Суббота, 27.04.2013, 13:11 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Цитата (Serge_007)

Как Вы собираетесь указывать номер диаграммы?

вот идет выбор диаграммы 1, а нужно сделать так, чтобы вместо этого выбор шел на любую активную диаграмму, не зависимо от ее номера
[vba]

Код

ActiveSheet.Shapes("Диаграмма 1").Height = 226.7716535433
ActiveSheet.Shapes("Диаграмма 1").Width = 430.8661417323

[/vba]

Сообщение отредактировал Bandin - Суббота, 27.04.2013, 13:12

Дата: Суббота, 27.04.2013, 13:15 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата (Bandin)

идет выбор диаграммы 1

Код я видел и читать умею. Я спрашиваю:

Цитата (Serge_007)

Как ВЫ собираетесь указывать номер диаграммы?

Или Вам всё равно к какой диаграмме применять код? В случайном порядке пусть будет?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Суббота, 27.04.2013, 13:19 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

Выделяю диаграмму и запускаю макрос

Цитата (Serge_007)

Или Вам всё равно к какой диаграмме применять код? В случайном порядке пусть будет?

нет не все равно, код должен применяться к активной диаграмме..

Сообщение отредактировал Bandin - Суббота, 27.04.2013, 13:21

Дата: Суббота, 27.04.2013, 13:31 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Bandin, а я ведь уже отвечал на этот вопрос в этой теме
Зачем дублируете?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Суббота, 27.04.2013, 14:00 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

аа все понял..надо было длину, ширину оставить, а остальное из Вашего кода вставить..все разобрался. Спасибо!
[vba]

Код

ActiveSheet.Shapes("Диаграмма" & Right(ActiveChart.Name, 2)).Height = 226.7716535433
ActiveSheet.Shapes("Диаграмма" & Right(ActiveChart.Name, 2)).Width = 430.8661417323

[/vba]

Дата: Суббота, 27.04.2013, 14:24 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Кх-м...
Не совсем так smile

Я ведь в той теме писал:

Цитата (Serge_007)

...работает только 10 раз...

и предложил другое решение

Цитата (Serge_007)

Так универсальнее:

[vba]

Код

Sub q()
Dim a As Byte
Dim b As Byte
Dim c As Byte
Dim d As String
Dim e As String
   On Error GoTo Err
      a = Len(ActiveSheet.Name)
      b = Len(ActiveChart.Name)
      c = b - a - 1
      d = ActiveChart.Name
      e = Right(d, c)
     With ActiveSheet.Shapes(e)
      .Height = 226.7716535433
      .Width = 430.8661417323
      .Left = 10
      .Top = 10
     End With
     GoTo Ends:
Err:
      MsgBox "Выделите диаграмму!"
Ends:
End Sub

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Дата: Суббота, 27.04.2013, 18:57 | Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация: 0 ±

Замечаний: 0% ±

О супер! Большое спасибо!