Đổi tên đối tượng trong PowerPoint

Question

Có lẽ là một câu hỏi rất ngu ngốc nhưng tôi không thể tìm cách đổi tên đối tượng trong PowerPoint .. Ví dụ: tất cả đồ thị của tôi được gọi theo mặc định "Biểu đồ 1", v.v. Ai đó có thể giúp tôi ? Cảm ơn!

Answer 1

Trong PowerPoint 2007, bạn có thể thực hiện việc này từ ngăn Chọn.

Để hiển thị ngăn chọn, bấm vào tab trang chủ trong ruy-băng, sau đó bấm vào sắp xếp và sau đó chọn 'Ngăn chọn ...' ở dưới cùng. Ngăn chọn sẽ mở ở bên phải. (Hoặc nhấn CTRL + F10)

Để đổi tên đối tượng, trước tiên hãy chọn đối tượng và sau đó nhấp đúp vào tên đối tượng trong ngăn Chọn và bạn sẽ có thể nhập tên đối tượng mới.

Answer 2

Nhờ sự giúp đỡ của bạn, nhưng thực sự tôi chỉ làm việc đó bằng VBA ...

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

Cheers

Answer 3

(câu trả lời này giả định bạn đang chỉ gán tên có ý nghĩa hơn trong phát triển, do đó, mã khác của bạn tham chiếu đến các đối tượng có thể dễ đọc hơn).

Đặt mã bên dưới vào một phụ, sau đó chạy mã từ trang trình bày được đề cập. Mỗi hình dạng sẽ được chọn lần lượt, vì vậy bạn có thể xem hình dạng nào đang được tham chiếu. Một hộp nhập liệu sẽ cho bạn biết tên hiện tại và yêu cầu bạn nhập tên mới. Nếu bạn hủy hoặc OK đầu vào không có độ dài bằng 0, tên cũ sẽ vẫn giữ nguyên. Không có xác nhận mục nhập tên trong mã này, vì vậy hãy đảm bảo bạn chỉ nhập tên hợp lệ. Sau khi chạy nó một lần, bạn có thể chạy nó một lần nữa chỉ để kiểm tra xem các tên bạn đã gõ trong vòng đầu tiên đã được áp dụng cho đối tượng bạn dự định chưa.

Vòng lặp sẽ bao gồm tất cả các đối tượng trên trang trình bày hiện tại, vì vậy nếu bạn muốn xử lý nhiều trang trình bày, bạn phải chạy riêng từng trang này trên mỗi trang trình bày. Mỗi đối tượng trên trang chiếu được xem là: tiêu đề, đối tượng vẽ, nhóm, hình ảnh nhúng, phương trình, v.v. - chỉ cần không nhập tên mới cho các đối tượng mà bạn không quan tâm.

Sau khi quá trình phát triển của bạn hoàn tất, hãy ẩn (Private Sub) hoặc xóa mã này, vì vậy người dùng của bạn không thay đổi tên đối tượng do nhầm lẫn.

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