Differences between this version and the original:
・Aligned all images and buttons so that the students can't tell which Pokemon will win based on their positioning in the slides
・Included a VBA script so that only 10 slides are required
Depending on your school's security, you may not be able to use VBA scripts. If this is the case, I recommend using the original. In other situations (like my schools), you might not be able to save the file with VBA. In this situation, you will have to import the VBA script each time. This is my first time using VBA so the code could probably use some more tweaking. If you have any feedback, questions, suggestions, or just want to chat, please feel free to contact me.
To import the VBA script, first download the script and the PowerPoint file. I recommend keeping them together, but it's not necessary.
Next, open the '3年生 Pokemon Battle Year Review.pptx' file.
Hold the 'Alt' key and press the 'F11' key to open Microsoft VBA.
Click on 'File' in the top ribbon and then click on 'Import file' from the dropdown menu.
Navigate to the 'Pokemon Battle Randomizer.bas' file, select it and click open.
Close Microsoft VBA, run the slideshow, and enjoy.
P.S. Big shout out to UonumaRobert for all his amazing work and activities!
Cool, very neat with the randomizer. I only recently figured out how to position things exactly in powerpoint. So far I've been too lazy to update all my activities. Half the time I still just eyeball it and use a wierd transition so its harder for the students to spot the differences. If you want you can link this to the original activity. There is an option to do this on right hand side.
Thank you UonumaRobert! Can't count how many times your activities have saved me when I was in a pinch. They're great ideas and are a hit in the classroom! I've linked it to your original!
Thanks, I’m glad you shared this. I’m always keen to learn something new.
McMattykins is probably the best looking man I have ever seen.
Wow, interesting! I'd always used macros to randomize slides in power point, I didn't know about this method. Thanks for posting it.