Tạo vòng quay ngẫu nhiên (Chiếc nón kỳ diệu) với Power Point

Posted by on December 28, 2019




Hướng dẫn các bạn sử dụng macro để tạo ra một vòng quay ngẫu nhiên, áp dụng cho các trò chơi trên lớp học.
Truy cập vào để xem các hướng dẫn khác nữa

Nguồn: https://dirosa.me/

Xem thêm bài viết khác: https://dirosa.me/category/cong-nghe


36 comments on "Tạo vòng quay ngẫu nhiên (Chiếc nón kỳ diệu) với Power Point"

Bạn giúp tôi với . Tôi bấm vào Start không chạy và báo lỗi dòng "vanban.Shapes("Picture").Rotation = vanban.Shapes("Picture").Rotation + 45" hiện màu vàng

Reply


nếu em không tải hình về mà tạo hình tròn trên pp luôn thì thay vì là Picture thì e sẽ ghi là gì ạ ??

Reply


Trước tiên mình cám ơn tác giả vì video bổ ích, tuy nhiên mình xin bổ sung tại đây cho nhiều bạn thắc mắc như sau:
– Thứ nhất, khi bạn thực hiện bước Insert -> Pictures rồi, thì bạn cần đặt lại tên của picture này bằng cách click chọn vào ảnh đó, tiếp đến chọn Format -> Selection Pane, và đặt lại tên cho nó đúng với tên là "Picture", để khi chạy macro nó sẽ không hiểu Picture mà bạn nhắc đến là cái nào, và hiển nhiên nó sẽ báo lỗi.
– Thứ hai, nhiều bạn thắc mắc tại sao chạy xong chỉ thấy nó quay đúng 1 vòng mà không quay nhiều vòng. Lý do là bạn cần phải Insert -> Pictures một bức hình vòng quay y như hình vòng quay vừa nảy, và với bức hình này, bạn sẽ tạo hiệu ứng Animations bởi 3 hiệu ứng là: Appear, spin và fade. Còn cụ thể là như thế nào bạn cứ tải bài mẫu mà ad đã up lên qua các comment bên dưới, sau đó xem kỹ lại.
Chúc các bạn thành công!

Reply


lỗi báo ko tìm thấy ảnh trong shapes collection có nghĩa là gì vậy anh

Reply


sao em làm theo như vậy đến lúc cuối em check nó lại hiện thông báo " object doesn't support this property or method. cách fix thế nào chế ơi?

Reply


ai làm được rồi chỉ mình với. cứ báo lỗi dòng đầu là sao ạ.

Reply


tải file mẫu ở đâu ạ ?

Reply


Làm đc rồi nhưng khi bấm quay chỉ quay đc 1 nữa vong xong tự dừng lại. Bấm tiếp lại như vậy, ko quay như AD

Reply


cảm ơn add nhiều.

Reply


Thank Ad, hy vọng được xem nhiều HD của AD về viết Code trong PPT..

Reply


Gia Bảo Nguyễn

December 28, 2019 at 10:52 am

AD ơi, em gọi lệnh không được ạ, em viết như trong clip mà vẫn báo lỗi ạ!
Sub quay()

Dim vong As Single

Set vbCuatui = ActivePresentation.Slides(l)

vong = (Rnd * 360) + S

For i = 1 To vong

vbCuatui.Shapes("picture").Rotation = vbcutui.Shapes("picture").Rotation + 5

Next i

End Sub

Reply


Trương Quốc Vinh

December 28, 2019 at 10:52 am

A ơi, sao em có file về mà đổi các tên không được vậy ạ?
27/9/2018

Reply


nếu mình tự tạo hình nón trên slide để quay chứ không dùng hình ảnh thì phải viết như nào ạ . e bị lỗi đoạn With myDoc.Shapes("Picture") . a giúp e với

Reply


Thu Thảo Nguyễn

December 28, 2019 at 10:52 am

ad ơi, e làm okie hết rồi mà đến lúc quay nó không quay nhiều vòng mà chỉ quay nhát một, em cũng đọc hết comment anh hướng dẫn phía dưới nhưng vẫn không được, phải làm thế nào ạ 🙁

Reply


Cường Phạm Kiên

December 28, 2019 at 10:52 am

Em làm rồi nhưng bấm mãi nó không quay

Reply


cho e xin file này vs ạ,
Phamthikimthanh10@gmail.com

Reply


Đạt Lương Thành

December 28, 2019 at 10:52 am

Mình đã làm theo như video nhưng khi ấn quay thì hình không quay nhiều vòng được như video mà nó chỉ nhảy đúng 1 lần thôi ạ

Reply


Chào bạn, bạn hướng dẫn mình, khi quay vô ô nào thì hiện câu hỏi trên màn hình nha , giúp mình tí nha. Cám ơn bạn.

Reply


khi tạo đường dẫn đến hình ảnh bị lỗi "not found in the shapes collection" thì khắc phục như nào

Reply


khi tạo đường dẫn đến hình ảnh bị lỗi "not found in the shapes collection" thì khắc phục như nào ạ =((

Reply


khi tạo đường dẫn đến hình ảnh bị lỗi "not found in the shapes collection" thì khắc phục như nào ạ =((

Reply


Anh ơi cái của em làm đúng rồi mà không biết tại sao lại bị không quay được. Anh giúp e nhé.

Reply


Chú ơi cháu muốn làm một chiếc đồng hồ và khi nó quay đến số nào đó sẽ dừng lại rung lên sau đó lại quay tiếp lặp lại vài lần như vậy ạ thì làm tn ạ? Chú giúp cháu vs ạ

Reply


ad giúp giùm em với em sắp làm bà thuyêt trình rồi :

Reply


ad cho em hỏi vs phiên bản cũ em tìm chữ maccro ko ra ở ô view. hình như là phiên bản 2003 ad giúp em với ạ. em

Reply


vòng xoay của em ko quay liên tục anh à. hướng dẫn giúp em vs. tks a nhìu ạ

Reply


ad cho em hỏi, e lam theo hướng dẫn, cũng có tải bản mẫu về xem, nhưng vòng quay của em chỉ đổi chỗ chứ không quay liên tục được, có cách nào giúp em không ạ?

Reply


a ơi, e làm như vậy nhưng nó chỉ đổi điểm mà k quay thì làm sao ạ?

Reply


chú có thể chỉ cho cháu cách làm một cái vòng xoay có viên bi lăn ko ạ hay là cái vòng như ri mà ko có các phần giải thưởng mà chỉ có màu ko đc ko chú ạ

Reply


anh à , cho em xin bo macro

Reply


Nếu tự vẽ vòng quay thì hình đó tên là gì ?

Reply


AD ơi sao mình làm cho nó chạy rồi mà lưu vào khi mở lại nó lại bị mất mã code vậy ạ

Reply


ad ơi cái này bị lỗi o chỗ nào v ak? s e nhập máy cứ kiu lỗi!!!!
vbcuatoi.Shapea("Picture").Rotation = vbcuatoi.Shapea("Picture").Rotation + 15

Reply


ad ơi e cx bị lỗi "Item Picture not found in the Shapes collection " mà e ko hiểu xem tên của bức hình ntn ạ?

Reply


lỗi : "Item Picture not found in the Shapes collection " , "Picture" là mặc định hay là tên của bức hình mình add vô vậy anh

Reply


Ban giup minh voi: toi bi loi
vbcuatui.Shapes("Picture").Rotation = vbcuatui.Shapes("Picture").Rotation + 15

Reply




Leave a Reply

Your email address will not be published. Required fields are marked *