PowerPoint에서 개체 이름 바꾸기

Question

아마도 매우 바보 같은 질문이지만 PowerPoint에서 개체의 이름을 바꾸는 방법을 생각할 수 없습니다. 예를 들어 모든 내 그래프는 기본적으로 "그래프 1"등으로 호출됩니다. 누군가 나를 도와 줄 수 있습니까? ? 감사합니다.

Answer 1

PowerPoint 2007에서는 선택 창에서이 작업을 수행 할 수 있습니다.

선택 창을 표시하려면 리본에서 홈 탭을 클릭 한 다음 정렬을 클릭하고 하단의 '선택 창 ...'을 클릭하십시오. Selection (선택) 창이 오른쪽에 열립니다. (또는 Ctrl + F10을 누름)

개체의 이름을 바꾸려면 먼저 개체를 선택한 다음 선택 창에서 개체 이름을 두 번 클릭하면 새 개체 이름을 입력 할 수 있습니다.

Answer 2

당신의 도움을 주셔서 감사합니다하지만 실제로 난 그냥 VBA를 사용하고있는 중이 야 ...

ActiveWindow.Selection.ShapeRange(1).Name = "newname" 

건배

Answer 3

(이 대답은, 당신은 단지 개발 과정에서 더 의미있는 이름을 할당하는 것으로 가정하여 다른 코드 때문에 객체를 참조하는 것이 더 읽기 쉽습니다).

아래 코드를 하위에 넣은 다음 해당 슬라이드에서 실행하십시오. 각 도형이 차례로 선택되므로 어떤 도형이 참조되는지 확인할 수 있습니다. 입력 상자에 현재 이름이 표시되고 새 이름을 묻습니다. 길이가 0 인 입력을 취소하거나 확인하면 이전 이름이 그대로 유지됩니다. 이 코드에는 이름 입력 유효성 검사가 없으므로 올바른 이름 만 입력하십시오. 한 번 실행 한 후 첫 번째 라운드에서 입력 한 이름이 의도 한 개체에 적용되었는지 확인하기 위해 다시 실행할 수 있습니다.

루프는 현재 슬라이드의 모든 개체를 포함하므로 여러 슬라이드를 처리하려면 각 슬라이드에서이 슬라이드를 개별적으로 실행해야합니다. 슬라이드의 모든 객체 (제목, 그리기 객체, 그룹, 포함 된 그림, 방정식 등)는 고려됩니다. 관심이없는 객체의 새 이름은 입력하지 마십시오.

개발이 끝나면 실수로이 객체를 변경하지 않도록이 코드를 숨기거나 (Private Sub)이 코드를 지우는 것이 가장 좋습니다.

Dim s As Integer, NewName As String 

With ActiveWindow.Selection.SlideRange 
    For s = 1 To .Shapes.Count 
     .Shapes(s).Select ' So you can see the object in question 
     NewName = InputBox(.Shapes(s).Name) ' Tell what current name it is and ask for new name 
     If Len(NewName) > 0 Then .Shapes(s).Name = NewName ' If you typed a new name, apply it 
    Next s ' 1 To .Shapes.Count 
End With ' ActiveWindow.Selection.SlideRange 

의