Excel 차트 시트에서 대체 텍스트를 선택하지 않고 대체 텍스트를 변경하는 방법

Excel의 차트 시트에서 대체 텍스트를 변경하고 싶습니다.Excel 차트 시트에서 대체 텍스트를 선택하지 않고 대체 텍스트를 변경하는 방법

매크로를 기록 할 때 이것은 기록 된 코드입니다.

.select 메서드를 실행하지 않고이 작업을 수행하고 싶습니다. 이렇게하면 숨김없이 숨겨진 차트 시트를 편집 할 수 있습니다.

이 내가하지 차트

2014-02-28 Doctor P

워크 시트 및 차트 모두 Chart1의 이름을 지정하는 것 같은데 워크 시트에서, 여기에 차트 시트를 편집하고 워크 시트에서 차트에 대한

Set sht_Sheet = Application.ActiveWorkbook.Sheets(i_SheetCount) 
For Each shp_Shape In sht_Sheet.Shapes 
s_TitleText = shp_Shape.AlternativeText 
next

주를 동일한 작업을 수행하는 방법이다? 그렇다면,이 그것을 수행해야합니다..

시트 ("Chart1의") 모양 ("Chart1의") AlternativeText = "asdasd"

출처

2014-02-28 06:30:12 Reganator

물론이 이름은 도형을 참조하기를 원하지 않습니다 (예 : 차트 1). 이것은 자주 바뀌며 아무 것도 될 수 있습니다. –

그때까지 그들에게 무엇을 말하고 싶습니까? 그들은 일반적으로 컬렉션에 있습니다. 색인을 추가하거나 제거하지 않는 한 색인을 사용하거나 그러한 활동을 설명 할 수 있습니다. – Reganator

확실히 - 그들은 컬렉션에 분명히 있습니다. 그 (것)들은 어떤 컬렉션입니까? 그것이 제가 가지고있는 문제입니다. 직접 루프를 참조하지 않고도 차트의 모든 객체를 루프 할 수있는 루프를 보여줍니다. 같은 뭔가 : 분명히 위의 코드를 제외하여 MySheet 으로 myText = MyShape.AlternativeText 다음 다음 에서 각은 myShape 각하여 MySheet에서 Workbook.sheets 를 들어 이 작동하지 않습니다. –

물론 - 그들은 컬렉션 확실히 있습니다. 그 (것)들은 어떤 컬렉션입니까? 그것이 제가 가지고있는 문제입니다. 직접 루프를 참조하지 않고도 차트의 모든 객체를 루프 할 수있는 루프를 보여줍니다. 예 :

For each MySheet In Workbook.sheets 
For each MyShape In MySheet 
    MyText = MyShape.AlternativeText 
Next 
Next

위의 코드를 제외하고는 분명히 작동하지 않습니다.

출처

2014-03-09 19:37:56

Excel 차트 시트에서 대체 텍스트를 선택하지 않고 대체 텍스트를 변경하는 방법

답변

관련 문제