This page has 0 threads | Add post

Exercises

Finding our exercises useful? Please consider helping us to share more!

Software ==>	Advanced VBA (28 exercises)
Topic ==>	Working with shapes (3 exercises)
Level ==>	Harder than average
Subject ==>	VBA training

Draw car shapes using a macro, and use them to simulate a race

This exercise is provided to allow potential course delegates to choose the correct Wise Owl Microsoft training course, and may not be reproduced in whole or in part in any format without the prior written consent of Wise Owl.

Before you can do this exercise, you'll need to download and unzip this file .

It's easiest to do this exercise in two parts: first draw the starting grid, then run the race.

To start the race, first create a new workbook, and write a macro (using the images in the above folder) to draw autoshapes at the start of the first 4 rows of a spreadsheet:

The cars are 40 points wide, 30 points high and begin 20 points in from the left of their cells and 10 points down from the top. The ColumnWidth of each column is 15, and the RowHeight of each row is 50.

The easiest way to draw the cars is to draw a basic rectangular autoshape (type 1), then run a line of code like this to apply a picture to it:

Car.Fill.UserPicture "D:\exercises\car1.jpg"

When you've got the grid set up, it's time to run the race! Write a second macro to loop until a car has won (ie reached column H).

Clicking on the message box should run the next move, which should advance one of the four cars (chosen at random) one cell. The answer uses the expression Int(Math.Rnd() * 4) + 1 to choose a random car number.

Here's what your screen might look like after running a race: