이름 상자가있는 차트의 순차적 레이블 지정

Question

파일에 차트가 많은 경우 VBA 코드로 이미지를 모두 내보내고 싶습니다. 차트에 "차트 제목"이 지정되어 있지 않으면 VBA는 차트를 "이름 상자"이름으로 저장합니다. 문제는 많은 차트를 가지고 있고 그 중 순차적 인 레이블이없는 경우 순서대로 제공해야한다는 것입니다. 예 : chart1, chart2, chart3 등의 차트가 필요합니다.

간단한 VBA로 모든 이름을 한 번에 변경할 수 있습니까? 100 개 이상의 차트가있는 경우를 대비하여 각 차트를 수동으로 변경하는 데 시간이 많이 걸립니다.

감사합니다, 스퍼

Answer 1

당신은 Sheet 객체의 Shape.Chart 속성을 사용하여 시트의 모든 차트에 액세스 할 수 있습니다.

는 시트 내부의 각 차트의 이름을 변경하려면,이 매크로를 사용

Sub SetChartTitle() 
    Dim s As Shape 
    Dim i as integer 
    i = 1 

    For Each s In Sheets("Sheet1").Shapes 
     If s.HasChart Then 
      s.Name = "mychart" & i ' set the chart name 
      i = i + 1 
     End If 
    Next s 
End Sub 

당신은 s.Chart.Export