Здравствуйте,
не могу макросом что то погрешность пользовательскую добавить.
макрокодер не помогает - какую-то в моем понимании чушь записывает.
в приложенном файле
стоит вариант
вылетает ошибка
пробовал и так
вот весь код
не могу макросом что то погрешность пользовательскую добавить.
макрокодер не помогает - какую-то в моем понимании чушь записывает.
в приложенном файле
стоит вариант
| Код |
|---|
Chart.FullSeriesCollection(21).ErrorBar Direction:=xlX, Include:=xlMinusValues, Type:=xlCustom, Amount:=errRange |
пробовал и так
| Код |
|---|
Chart.FullSeriesCollection(21).ErrorBar Direction:=xlX, Include:=xlMinusValues, Type:=xlCustom, Amount:="='diag'!$D$13:$D$21" |
вот весь код
| Код |
|---|
On Error Resume Next
Dim mWb As Workbook
Dim mWs As Worksheet
Dim trGraph As ChartObject
Dim errRange As Range
Set mWb = ActiveWorkbook
Set mWs = mWb.ActiveSheet
Set trGraph = mWs.ChartObjects(1)
Set errRange = mWs.Range(mWs.Cells(13, 4), mWs.Cells(21, 4))
trGraph.Chart.FullSeriesCollection(21).HasErrorBars = True
trGraph.Chart.FullSeriesCollection(21).ErrorBars.EndStyle = xlNoCap
trGraph.Chart.FullSeriesCollection(21).ErrorBar Direction:=xlY, Include:=xlY, Type:=xlFixedValue, Amount:=0
trGraph.Chart.FullSeriesCollection(21).ErrorBar Direction:=xlX, Include:=xlMinusValues, Type:=xlCustom, Amount:=errRange
If Err.Number <> 0 Then
MsgBox ("err1=" & Err.Description)
End If
|
Изменено: - 05.04.2020 07:16:00
