Excel chart - подскажите как программно создать

otvertka07

сабж

6yrop

записать макрос и посмотреть код



    Columns("A:B").Select

    Charts.Add

    ActiveChart.ChartType = xlXYScatter

    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B3" PlotBy:= _

        xlColumns

    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

    With ActiveChart

        .HasTitle = False

        .Axes(xlCategory, xlPrimary).HasTitle = False

        .Axes(xlValue, xlPrimary).HasTitle = False

    End With

вполне читаемо...

otvertka07

записал,
как теперь макрос посмотреть?

6yrop

ну хватит прикалываться

ALT-F8, Edit

Amorsita

Alt+F11..........

6yrop

девушка, можно с вами познакомиться?

Amorsita

давай завтра

Оставить комментарий