Excel

[4u4elo]

Подскажите, пожалуйста:
В чём разница между Sheets и Worksheets?

[uhm]

Sheets - это Worksheets и Charts, т. е. листы любого типа. Worksheets - подмножество Sheets, это только листы с данными, не диаграммы.

[4u4elo]

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

[Maks the best]

Якая умная птичка ...

[uhm]

Ну, так! Одна сплошная голова!

[FLAGER]

Прикольно...

[Maks the best]

uhm
такая проблема:

хочу выделить диаграмму которая на обычном листе Excel что бы над ней похимичить, а потом соответственно съехать с нее и выделить ячейку листа, записал макрос чтоб подивится чё там как:

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


ActiveSheet.ChartObjects("Диагр. 1").Activate
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    Windows("Диаграммы.xls").Activate
    Range("N13").Select

а он не работает при повторе, выдает что:

невовозможно получить свойство ChartObjects класса Worksheet ...
вроде Worksheets и Charts это как раз из этой песни...

[lord0n]

uhm
такая проблема:

хочу выделить деаграмму которая на обычном листе Excel что бы над ней похимичить, а потом соответственно съехать с нее и выделить ячейку листа, записал макрос чтоб подивится чё там как:

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

ActiveSheet.ChartObjects("Диагр. 1").Activate
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    Windows("Диаграммы.xls").Activate
    Range("N13").Select

а он не работает при повторе, выдает что:

невовозможно получить свойство ChartObjects класса Worksheet ...
вроде Worksheets и Charts это как раз из этой песни...

но если та сделал это через макрос, то должно работать
либо ты чета сам поменял

[Maks the best]

в том то и фишка я записываю макрос и тут же его запускаю без изменений, а он матерится

[lord0n]

в том то и фишка я записываю макрос и тут же его запускаю без изменений, а он матерится

ша проверю

[lord0n]

вот этот код работает
создал столбцы, диаграмму и изменил её

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


    ActiveCell.FormulaR1C1 = "1"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "a"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "b"
    Range("A3").Select
    ActiveCell.FormulaR1C1 = "3"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "c"
    Range("A1:B3").Select
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("A1:B3"), PlotBy:= _
        xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "3"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    ActiveChart.PlotArea.Select
    ActiveChart.Axes(xlValue).MajorGridlines.Select
    ActiveChart.PlotArea.Select
    ActiveChart.ChartType = xl3DColumnStacked100


[lord0n]

если в конце добавить range то тож работает

[Maks the best]

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

[alibek]

Пиши не "Диагр. 1", а "Chart1"

[Maks the best]

пишу:

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


ActiveSheet.ChartObjects("Chart1").Activate
    ActiveChart.ChartArea.Select
    ActiveWindow.Visible = False
    Windows("Диаграммы.xls").Activate
    Range("N13").Select

("Chart1") во всех вариациях ("Chart.1");("Chart. 1") .... ругается всё равно ...

[lord0n]

а ты "" убери

[Maks the best]

убрал
ActiveSheet.ChartObjects(Chart1).Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("Диаграммы.xls").Activate
Range("N13").Select

такая же беда ...

[lord0n]

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


    ActiveSheet.ChartObjects(1).Activate


так
читай хелп

[Maks the best]

чудо свершилось
спасибо всем !