차트 이름을 지정할 때 메모리 부족 오류가 발생했습니다.

Question

차트의 이름을 지정하는 동안 "메모리 부족"오류가 발생합니다. 나중에 다른 하위 프로그램에서이 차트를 참조 할 수 있어야합니다. 어떤 도움을 주셔서 감사합니다.

Sub CreateChart() 
' Creates chart for the Quality sheet 

Dim sBusiness As String 
Dim charttype As String 
Dim shChart As Worksheet 
Dim num_iss As Integer 
Dim i As Integer 
Dim endrng As Integer 
Dim currentChart As Chart 

Set shChart = ThisWorkbook.Sheets("Chart Tool") 
sBusiness = ThisWorkbook.Worksheets("Chart Tool").Range("select_bu").value 
charttype = ThisWorkbook.Worksheets("Chart Tool").Range("select_chart").value 
num_iss = ThisWorkbook.Sheets("Chart Tool").Range("num_issues").value 
endrng = 31 + num_iss 


' Chart Placement 
    shChart.Shapes.AddChart(xlColumnClustered, _ 
    Left:=8, Top:=110, _ 
    Width:=428, Height:=240).Select 
    If charttype = "Cost" Then 
     ActiveChart.SetSourceData Source:=shChart.Range(shChart.Cells(2, 32),     shChart.Cells(3, endrng)) ' souce range 
    End If 
If charttype = "DPM" Then 
    ActiveChart.SetSourceData Source:=shChart.Range(shChart.Cells(7, 32), shChart.Cells(8, endrng)) ' souce range 
    End If 

    ActiveChart.SetElement msoElementCategoryAxisShow 
    ActiveChart.SetElement msoElementChartTitleAboveChart ' sets chart title above 
    ActiveChart.SetElement msoElementLegendNone ' removes legend 
    ActiveChart.SetElement msoElementPrimaryCategoryAxisTitleBelowAxis ' horizontal axis 
    ActiveChart.SetElement msoElementPrimaryValueAxisTitleRotated ' Vertical axis 
    ActiveChart.ChartTitle.Caption = "Top Issues for " & sBusiness & " by " & charttype ' adds title name 
    ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Caption = "Issue" ' adds x-axis title name 
    ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Caption = charttype ' adds y-axis title name 
    ActiveChart.Name = "ParetoChart" 

End Sub 

Answer 1

차트의 .Name 속성은 포함 된 차트 개체에 대해 읽기 전용입니다. 차트 부모의 이름을 .ChartObject에 할당 할 수 있어야합니다.

ActiveChart.Parent.Name = "ParetoChart"