Sử dụng VBA trong PowerPoint - Bài 5

BÀI 5.     SLIDE & SHAPE

Mục tiêu
Sau bài này bạn có thể:
Đặt tên cho slide & shape.
Truy xuất được đến slide & shape.
Viết Macro cho shape.

Giới thiệu
Thành phần cơ bản trên một bài trình chiếu là Slide. Trên Slide chúng ta thường chèn TextBox, hình ảnh, shape. Ở đây ta gọi chung các đối tượng này là Shape.
Slide & Shape cũng có tên duy nhất để chúng ta có thể truy xuất đến. Tuy nhiên Powerpoint không cung cấp một chức năng nào để chúng ta có thể xem tên hoặc gán tên cho Slide/Shape. Chúng ta có thể đổi tên cho Shape/Slide bằng code, tuy nhiên nếu chúng ta thường xuyên làm việc trên Shape thì điều này rõ rang không thuận tiện, chính vì vậy tôi đã tạo ra 1 Plugin sử dụng cho PowerPoint 2007 giúp bạn thực hiện điều này. Có thể truy cập http://vn.myblog.yahoo.com/onceclick để download Plugin này.
Sau khi cài đặt PowerPoint 2007 sẽ có thêm tab VBA Support trên Ribbon. Trên này cung cấp các chức năng như lấy tên slide/shape đưa vào clipboard, đặt tên cho slide/shape, lấy đường dẫn truy xuất đến slide/shape, một số đoạn code điều hướng trên slide.


Hình  5.1: Giao diện của VBA Support
Nếu sử dụng công cụ này chúng ta không cần phải đọc phần đổi tên cho Slide/Shape nữa. Nếu bạn vẫn đang sài Powerpoint 2003 có thể đổi tên cho Slide/Shape như sau.

Đọc/đổi tên Shape/Slide
Bước 1: Chọn Slide hoặc Shape muốn đổi tên.
Bước 2: Bấm ALT+F11 để mở cửa sổ Visual Basic. Sau đó bấm Ctrl + G hoặc chọn Menu View/Immediate Window để mở ngăn Immediate. Ngăn này cho phép người dùng gõ và chạy code thử nghiệm. Ta sẽ sử dụng ngăn này để đọc hoặc đổi tên Slide/Shape. Mỗi lệnh trong ngăn này nằm trên 1 dòng, khi nhấn Enter sẽ thực hiện lệnh đó. Ví dụ gõ vào msgbox "Hello" sau khi Enter sẽ xuất hiện thông báo với chuỗi “Hello”.
Bước 3: Gõ vào một trong các lệnh sau để thực hiện nhiệm vụ tương ứng.
Nhiệm vụ
Code

Đọc tên Slide
debug.print ActiveWindow.View.Slide.Name

Đổi tên Slide
ActiveWindow.View.Slide.Name = "Hello"

Đọc tên Shape
debug.print  ActiveWindow.Selection.ShapeRange.Name

Đổi tên Shape
ActiveWindow.Selection.ShapeRange.Name = "TenShape"

 
Bảng  5.1: Đọc/đổi tên Slide/Shape
Truy xuất đến Slide/Shape
Giả sử  một Shape có tên là “Title 1” và nằm trên Slide tên “Hello” ta sẽ truy xuất đến Slide/Shape thông qua đoạn code sau:
Loại
Code

Slide
ActivePresentation.Slides("Hello")

Shape
ActivePresentation.Slides("Hello").Shapes("Title 1")

 
Bảng  5.2: Truy xuất đến Slide/Shape
Muốn thay đổi hay gọi các thuộc tính/phương thức của Slide/Shape chỉ cần truy xất đến Slide/Shape sau đó thêm dấu chấm VBA sẽ hiện hộp thoại cho bạn chọn.
Ví dụ 5.1: Xem tọa độ bên trái của Shape:
debug.print ActivePresentation.Slides("Hello").Shapes("Title 1").Left
Ví dụ 5.2:  Quay Shape 45 độ:
ActivePresentation.Slides("Hello").Shapes("Title 1").IncrementRotation 45
Ví dụ 5.3: Lật shape theo chiều dọc
ActivePresentation.Slides("Hello").Shapes("Title 1").Flip msoFlipVertical
Viết Macro cho Shape
Macro thật ra là một đoạn code nhằm thực hiện công việc nào đó. Để tạo Macro cho Shape ta thực hiện như sau:
Bước 1: Nhấn ATL + F11 để mở cửa sổ Visual Basic, Từ Menu Insert, chọn Insert Module. Module mặc định được tạo ra là module1, có thể tạo bao nhiêu module tùy ý tuy nhiên thường chỉ cần viết trên 1 module là đủ. Code viết trên Module có thể được gọi từ bất kỳ đâu, trên bất kỳ slide nào.
Bước 2: Từ Menu Insert chọn Procedure, đặt tên cho thủ tục và nhấn OK để chèn một thủ tục mới. Thủ tục này được gọi là Macro. Sau đó viết code cho macro.
Bước 3: Quay về cửa sổ thiết kế:
Đối với PowerPoint 2003: Click phải vào Shape muốn gán Macro, chọn Action Settings, chọn Run Macro và chọn tên Macro cần thực hiện.
Đối với PowerPoint 2007: Chọn Shape cần gán Macro, click vào nút Action trong ngăn Insert, chọn Run Macro và chọn tên Macro cần thực hiện.

Điều hướng Slide
Thông thường nếu chỉ muốn di chuyển giữa các Slide, ta chỉ cần chèn Shape sau đó mở hộp thoại Action Settings như ở phần trên, trong phần  Hyperlink To chọn Slide