Advanced VBA | Working with shapes exercise | Create a palette of all of the autoshapes used in MS Office

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.

Software ==> Advanced VBA  (33 exercises)
Version ==> Any MS Office versions
Topic ==> Working with shapes  (3 exercises)
Level ==> Average difficulty
Subject ==> VBA training

You need a minimum screen resolution of about 700 pixels width to see our exercises. This is because they contain diagrams and tables which would not be viewable easily on a mobile phone or small laptop. Please use a larger tablet, notebook or desktop computer, or change your screen resolution settings.

In a new Excel workbook, loop from 1 to 137 to create a palette of all of the autoshapes used by standard versions of Microsoft Office:

First few autoshapes

The first 4 rows of autoshapes (the final worksheet should have 137 shapes in).  To get a neat-looking effect like this, use the measurements shown below.


You may like to use the following measurements to speed up the process:

  • Set the ColumnWidth property of the shapes column to 15.
  • Set the RowHeight property of each row containing a shape to 50.
  • Position each shape 20 points in from the left edge of its cell and 10 points down from the top, and give it a width of 40 and height of 30.

When you've finished, save this workbook as Drawing palette of autoshapes, then close it down.

You can unzip this file to see the answers to this exercise, although please remember this is for your personal use only.
This page has 0 threads Add post