Tạo vòng quay ngẫu nhiên (Chiếc nón kỳ diệu) với Power Point
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://protectworkingfamilies.com/
Xem thêm bài viết khác: https://protectworkingfamilies.com/category/giai-tri/
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
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ì ạ ??
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!
lỗi báo ko tìm thấy ảnh trong shapes collection có nghĩa là gì vậy anh
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?
ai làm được rồi chỉ mình với. cứ báo lỗi dòng đầu là sao ạ.
tải file mẫu ở đâu ạ ?
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
cảm ơn add nhiều.
Thank Ad, hy vọng được xem nhiều HD của AD về viết Code trong PPT..
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
A ơi, sao em có file về mà đổi các tên không được vậy ạ?
27/9/2018
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
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 ạ 🙁
Em làm rồi nhưng bấm mãi nó không quay
cho e xin file này vs ạ,
[email protected]
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 ạ
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.
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
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 ạ =((
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 ạ =((
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é.
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 ạ
ad giúp giùm em với em sắp làm bà thuyêt trình rồi :
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
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 ạ
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 ạ?
a ơi, e làm như vậy nhưng nó chỉ đổi điểm mà k quay thì làm sao ạ?
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ú ạ
anh à , cho em xin bo macro