스프레드 시트 내에서 다양한 범위를 사용하여 차트를 만드는 매크로를 디자인하고 있습니다. 차트 자체에 대한 내 코드는 아래에 나와 있지만 어떤 이유로 왼쪽 (기본) 축 제목을 표시 할 수 없습니다. 오른쪽 (보조)에서는 잘 작동합니다. 나머지 코드는 잘 작동하며 모두 표시되지 않는이 하나의 축 제목에 매달려 있습니다.
이견있는 사람?
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
With ActiveChart
.SetSourceData Union(range1, range2)
.FullSeriesCollection(1).ChartType = xlColumnClustered
.FullSeriesCollection(1).AxisGroup = 1
.FullSeriesCollection(1).HasErrorBars = True
.FullSeriesCollection(2).ChartType = xlLine
.FullSeriesCollection(2).AxisGroup = 1
.FullSeriesCollection(2).AxisGroup = 2
.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
.SetElement (msoElementSecondaryValueAxisTitleAdjacentToAxis)
.SetElement (msoElementPrimaryCategoryAxisTitleNone)
.ChartArea.Font.Color = RGB(0, 0, 0)
.ChartArea.Font.Size = 10
End With
확실하지 않지만이 라인이 문제를 일으키는 것일 수 있습니까?
With ActiveChart
.SetSourceData Union(range1, range2)
.FullSeriesCollection(1).ChartType = xlColumnClustered
.FullSeriesCollection(1).AxisGroup = 1
.FullSeriesCollection(1).HasErrorBars = True
.FullSeriesCollection(2).ChartType = xlLine
.FullSeriesCollection(2).AxisGroup = 1 ' <------- This line seems unnecessary
.FullSeriesCollection(2).AxisGroup = 2
.SetElement (msoElementPrimaryValueAxisTitleAdjacentToAxis)
.SetElement (msoElementSecondaryValueAxisTitleAdjacentToAxis)
.SetElement (msoElementPrimaryCategoryAxisTitleNone)
.ChartArea.Font.Color = RGB(0, 0, 0)
.ChartArea.Font.Size = 10
End With
편집 이 답변 에서 해결책을 찾았을 수 있습니다 . 이 상수는 다음과 같이 해석되는 버그, 같은 소리 306
지만, 당신이 보면 워드 프로세서 , 상수는 값에 매핑됩니다 307
. 따라서 307
대신 리터럴을 사용하십시오 msoElementPrimaryValueAxisTitleAdjacentToAxis
.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다