VBNet - Форум - Переименование

Вопрос: Переименование Добавлено: 27.03.08 10:36

Автор вопроса: Юра

Добрый день! Есть проблемма. На VBA написана программа, которая из созданных таблиц создает диаграмму внедренную в лист. Имя этой диаграммы постоянно меняется в сторону увеличения. Даже если диаграмму удаляю, а потом запускаю макрос на ее создание,то новое имя опять на единицу больше. Как переименовать встроенную диаграмму в Диагр.1.
Все перепробывал. Помогите . Буду очень благодарен.
Дополнительно выкладываю сам макрос.
Sub Макрос2()
    Range("A3:G8").Select
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers



      ActiveChart.SetSourceData Source:=Sheets("Отчет").Range("A3:G8"), PlotBy:= _
     xlRows


    ActiveChart.Location Where:=xlLocationAsObject, Name:="Отчет"

      With ActiveChart

              .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
       .Axes(xlValue, xlPrimary).HasTitle = False

    End With
    MsgBox (ActiveChart.Name)



    ' ActiveSheet.Shapes("Диагр. 1").Width = 320
    'ActiveSheet.Shapes("Диагр. 1").Height = 230
    ' ActiveSheet.Shapes("Диагр. 1").Left = 330
    ' ActiveSheet.Shapes("Диагр. 1").Top = 13
    ' ActiveChart.SetSourceData Source:=Sheets("Отчет").Range("A3:G8")
End Sub
Для корректной работы нужно один лист в книге обозвать
Отчет. В результате работы макроса появляется диаграмма.
Каждый раз с новым именем. Мне нужно ее уменьшить и переставить в определенное место. Зеленые строки внизу как раз и делают это. Но вся проблемма в том что диаграмма постоянно меняет имя. А нужно обращаться к определенному объекту. Может есть другой путь?!!!
Спасибо за помощь.
MsgBox (ActiveChart.Name)-эту команду я добавил чтоб узнавать новое имя. Но присвоить имя не получается.
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: el-paso Вопросов: 3 Ответов: 164	Профиль \| \| #1	Добавлено: 27.03.08 13:00
	Не вижу проблем... Разве нельзя сделать: ActiveChart.Name = "Диагр. 1" ? Ответить

Страница: 1 |