Доброго времени суток. Имеется Макрос для автоматического построения графиков, но в нем есть БОЛЬШАЯ неточность в размере диапазона построения планок погрешностей.
то есть ДиапазонГрафика имеет вид, например A1:N1
ДиапазонОШИБКИ в таком случае будет А2:N2
выделение имеет первое значение Std. error, его надо бы убрать. то есть что бы был диапазон B2:N2
| Код |
|---|
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ApplyChartTemplate ( _
"C:\Users\User\AppData\Roaming\Microsoft\Шаблоны\Charts\график_фон.crtx")
Dim ДиапазонГрафика As Excel.Range
Set ДиапазонГрафика = Application.InputBox("введите диапазон ячеек", Type:=8)
Dim ДиапазонОШИБКИ As Excel.Range
Set ДиапазонОШИБКИ = ДиапазонГрафика.Offset(1, 0)
ActiveChart.SetSourceData Source:=ДиапазонГрафика
ActiveChart.SetElement (msoElementErrorBarStandardError)
ActiveChart.SeriesCollection(1).ErrorBar Direction:=xlX, _
Include:=xlErrorBarIncludeBoth, Type:=xlErrorBarTypeCustom, _
Amount:=ДиапазонОШИБКИ, MinusValues:=ДиапазонОШИБКИ
|
| Mean | 0,406688 | 0,46077 | 0,531198 | 0,765095 | 0,801366 | 0,965106 | 1 | 1,023604 | 0,925188 | 1,000149 | 1,408565 | 1,285898 | 1,422531 |
| Std. error | 0,096505 | 0,056107 | 0,066881 | 0,137588 | 0,045134 | 0,114324 | 0 | 0,095905 | 0,059347 | 0,107198 | 0,200233 | 0,283108 | 0,200811 |
ДиапазонОШИБКИ в таком случае будет А2:N2
выделение имеет первое значение Std. error, его надо бы убрать. то есть что бы был диапазон B2:N2
Изменено: - 16.08.2014 15:11:29
