karenl7

Welcome to the CTRL! This computer's name is kookaburra. If you plan to use this machine for your research, please make yourself an account by opening a terminal window (Ctrl + Alt + T) and typing: 

sudo adduser <your preferred username>
sudo usermod -aG sudo <your preferred username>

The first line creates your account (just supply a username and password; feel free to leave all the other fields blank by pressing Enter for each of them), and the second line adds that account to the "superuser" group so you have full control over the machine (including the ability to install/update software).

karenl7

Option Explicit

Sub AddElements()
Dim shp As Shape

Dim i As Integer, n As Integer
n = ActivePresentation.Slides.Count
For i = 1 To n
    Dim s As Slide
    Set s = ActivePresentation.Slides(i)