Hãy đăng ký thành viên để có thể dễ dàng trao đổi, giao lưu và chia sẻ về kiến thức đồ họa.
  1. Hãy đăng ký subscribe kênh Youtube mới của Việt Designer tại địa chỉ: Youtube.com/VietDesignerChannel để theo dõi các video về thiết kế đồ họa. Do trước đó kênh cũ bị Youtube quét không rõ lý do, trong thời gian chờ kháng cáo nếu các bạn thấy video trên diễn đàn bị die không xem được thì có thể vào kênh mới để tìm xem video sơ cua nhé.
    Loại bỏ thông báo

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

Chủ đề thuộc danh mục 'Kiến thức tin học' được đăng bởi Đinh Hữu Hoàng, 29/7/19.

Lượt xem: 544

  1. Đinh Hữu Hoàng Mới đăng kí

    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:

    ...
    David★Lyn thích bài viết này

Ủng hộ diễn đàn