Excel : 시리즈 데이터 지우기 차트 스타일 업데이트

Question

내 서버의 PHP 파일에서 CSV 형식의 워크 시트 데이터를 가져옵니다.
필자는 몇 줄을 받을지 모르겠다. 필요한 경우 셀 내용을 대체하는 옵션으로이 워크 시트의 데이터를 푸시하고, 사용하지 않는 셀을 삭제합니다.

다른 워크 시트를 채우기 위해이 워크 시트의 데이터를 구문 분석하는 절차를 실행합니다.
위와 같은 이유 때문에이 두 번째 워크 시트를 채우기 전에이 두 번째 워크 시트의 열을 지 웁니다. 나는 두 개의 워크 시트의 데이터를 사용하여 차트를 삽입 한 두 번째 워크 시트에

Application.ScreenUpdating = False 

Worksheets("data2").Activate 
Range("A:B:C:D").Clear 

Worksheets("data").Activate 
Set my_range = Range("A:A") 

For i = 1 To my_range.Rows.Count 
    'calculations saved in some vars : var1, var2, ... 
    Cells(i, 1).Value = var1 
    Cells(i, 2).Value = var2 
    '... 
Next i 

Application.ScreenUpdating = True 

: 여기

내 절차의 샘플입니다.
행 수가 동적이므로 내 열을 참조하는 이름을 선언했습니다. 그들은 다음과 같이 설정됩니다 : =OFFSET(data!$A$1;0;0;COUNT(data!$A:$A))

제 프로 시저를 실행할 때 내 차트에 설정된 모든 스타일이 손실됩니다. 내가 잘못하고 있니? 내 차트의 스타일을 유지할 수있는 옵션이 있습니까?

Answer 1

문제점을 잘못 읽고 셀에 서식을 잃어버린 줄 알았습니다. 이제 네 차트라고 생각해. 나는 당신과 같은 일을하는 많은 차트를 가지고 있습니다. 차트 시리즈를 VBA로 업데이트하고 서식을 잃어 버리지 않습니다. 데이터를 지우기 전에 모든 차트 계열 값 = {1}을 설정했습니다. 그런 다음 데이터를로드 한 후 계열 값을 설정하는 다른 매크로가 있습니다.

이

Sub clearChart(chartWs As Worksheet, chartName As String) 
    Dim cObj As ChartObject 
    Dim i As Integer 
    Set cObj = chartWs.ChartObjects(chartName) 
    For i = 1 To cObj.Chart.SeriesCollection.count 
    cObj.Chart.SeriesCollection(i).Values = "{1}" 
    cObj.Chart.SeriesCollection(i).XValues = "{1}" 
    Next i 
End Sub 

예 : clearChart 삽입하거나, 도움 "Chart1의"

희망 ...