• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Sub Диаграмма(Диапазон As Object)

ActiveSheet.ChartObjects.Add(150, 49.25, 259.5, 169.5).Select

Application.CutCopyMode = False

ActiveChart.ChartWizard Source:=Диапазон, Gallery:=xlXYScatter, _

Format:=1, PlotBy:=xlColumns, CategoryLabels:=1, _

SeriesLabels:=0, HasLegend:=False, Title:="", CategoryTitle:="", _

ValueTitle:="", ExtraTitle:=""

ActiveSheet.ChartObjects(1).Activate

ActiveChart.SeriesCollection(1).Select

ActiveChart.SeriesCollection(1).Trendlines.Add(Type:=xlLinear, _

Forward:=0, Backward:=0, DisplayEquation:=True, _

DisplayRSquared:=True).Select

End Sub

Рис. 4. Вид работающего приложения (задача 1)

Рис. 5 Вид работающего приложения (задача 2)

Переглядів: 278