| |
'-------------------------------------
Sub chart_change()
'-------------------------------------
Dim ochart As Excel.Chart
Set ochart = Sheet1.ChartObjects(1).Chart
Dim data As Variant
' 차트 소스 데이타
'---------------------------
Dim rSrc As Range
Set rSrc = Sheet2.Range("B2").CurrentRegion
Set rSrc = rSrc.Offset(1, 0).Resize(rSrc.Rows.Count - 1)
Dim oseries As Excel.Series
Dim oAxe As Excel.Axis
' series1 setting
'---------------------------
Set oseries = ochart.SeriesCollection(1)
oseries.Name = "Sales"
oseries.xvalues = rSrc.Columns(1)
oseries.Values = rSrc.Columns(2)
Set oAxe = ochart.Axes(XlAxisType.xlValue, xlPrimary)
' scale setting
oAxe.MinimumScale = Application.Min(oseries.Values) * 0.9
oAxe.MaximumScale = Application.Max(oseries.Values) * 1.1
' series2 setting
'---------------------------
Set oseries = ochart.SeriesCollection(2)
oseries.Name = "Value"
oseries.xvalues = rSrc.Columns(1)
oseries.Values = rSrc.Columns(3)
Set oAxe = ochart.Axes(XlAxisType.xlValue, xlSecondary)
' scale setting
oAxe.MinimumScale = Application.Min(oseries.Values) * 0.9
oAxe.MaximumScale = Application.Max(oseries.Values) * 1.1
End Sub
|
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
