그래프 만들기 - 런타임 오류 424 - 필요한 개체

Question

다음 VBa 코드를 사용하여 그래프를 만들려고합니다. 그러나 행에 Run-time error 424 - Object required이 표시됩니다.

Set rngChtXVal = .Columns(1).Offset(1).Resize(.Rows.Count - 1) 

어떤 문제가됩니까?

Sub MakeGraph() 
    Dim myChtObj As ChartObject 
    Dim rngChtData As Variant 
    Dim rngChtXVal As Variant 
    Dim iColumn As Long 

    sel= Sheets("Data").Range(Cells(1, 1), Cells(200, 2)) 
    rngChtData = sel 

    ' define chart's X values 
    With rngChtData 
     Set rngChtXVal = .Columns(1).Offset(1).Resize(.Rows.Count - 1) 
    End With 

    ' add the chart 
    Set myChtObj = ActiveSheet.ChartObjects.Add(Left:=250, Width:=425, Top:=10, Height:=240) 
    With myChtObj.Chart 

     ' make an XY chart 
     .ChartType = xlLine 

     ' remove extra series 
     Do Until .SeriesCollection.Count = 0 
      .SeriesCollection(1).Delete 
     Loop 

     ' add series from selected range, column by column 
     For iColumn = 2 To rngChtData.Columns.Count 
      With .SeriesCollection.NewSeries 
       .Values = rngChtXVal.Offset(, iColumn - 1) 
       .XValues = rngChtXVal 
       .Name = rngChtData(1, iColumn) 
      End With 
     Next 

    End With 

End Sub 

Answer 1

당신은 Range 객체처럼 rngChtData 및 rngChtXVal 지명했지만, 당신은 Variant로 선언했습니다. Variants는 Ranges 일 수 있지만 코드 디버깅이 훨씬 어려워집니다. 가능한 경우 명시 적 변수 유형을 사용하십시오. 문제를 해결하려면 코드를 다음과 같이 변경하십시오.

Sub MakeGraph() 
Dim myChtObj As ChartObject 
Dim rngChtData As Range 
Dim rngChtXVal As Range 
Dim iColumn As Long 

With Sheets("Data") 
    Set rngChtData = .Range(.Cells(1, 1), .Cells(200, 2)) 
End With 

' define chart's X values 
With rngChtData 
    Set rngChtXVal = .Columns(1).Offset(1).Resize(.Rows.Count - 1) 
End With