Hướng dẫn làm hiệu ứng cộng điểm Powerpoint

Hướng dẫn cách làm hiệu ứng cộng điểm trên powerpoint:

Các bạn tạo 1 shapes để click, một shapes để hiển thị điểm

Ngay tại Slide đó bạn Tạo 1 Label trong thanh công cụ Developer, sau đó click đúp vào Label đó, cửa sổ VBA hiện ra và slide 1 của bạn được lưu vào VBA.

Sau đó bạn sẽ tiến hành viết code, mình hướng dẫn cách viết như sau:

B1: Bạn cop nguyên văn cả cụm trong dấu ngoặc kép này vào "Sub congdiem() "(k cóp dấu ngoặc kép nhé).

B2: Viết code cộng điểm:

Slide1.Shapes("Ten shapes hien thi").TextFrame.TextRange.Text= Slide1.Shapes("Ten shapes hien thi").TextFrame.TextRange.Text+10

Phân tích:

Slide1: tên slide. Lưu ý quan trong là tên của slide bạn phải nhìn ở cửa sổ VBA chứ không phải ở phần powerpoint thông thường. Vì ở cửa số thông thường bạn có thể đảo vị trí của các slide cho nhau còn trong VBA thì không. Tên slide thường là slide1,slide2,slide3,...

Ten shapes hien thi: Là tên của cái shapes sẽ được cộng điểm vào. Cách tìm tên shapes như sau:

Bước 1: Chọn 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 MenuView/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 đó.

Bước 3: Gõ dòng code sau: debug.print ActiveWindow.Selection.ShapeRange.Name

và nhấn Enter

10 là điểm số được cộng sau mỗi lần click. Bạn có thể thay bằng 20,30,40 tùy ý

B3: Nhấn enter xuống dòng, Copy cụm "end sub " để kết thúc sub

Sau khi viết code xong các bạn gán code đó vào shapes để clicck đã tạo. Bạn click vào shapes đó, trên thành công cụ chọn Insert->action->Run marco và chọn marco congdiem> Lưu ý phải viết shapes hiển thị là 0, nếu k nó sẽ có thông báo là type mismatch, marco sẽ không hoạt động.
Link video quay màn hình: