Microsoft Office Tutorials and References
In Depth Information
Manipulating AutoShapes
'Number is big, better double check¶
If MsgBox("Confirm -- add " & intInsertCount & _¶
" slides.", vbYesNo, "Confirm large addition") _¶
<> vbYes Then Exit Sub¶
End If¶
'Add the number of slides by looping¶
For i = 1 To intInsertCount¶
'Adds a new slide to the end of the presentation (count +1)¶
'using the normal bulleted text layout¶
ActivePresentation.Slides.Add _¶
ActivePresentation.Slides.Count + 1, _¶
ppLayoutText¶
'Loop back if there are more to add.¶
Next i¶
End Sub¶
Tip: The ppLayoutText portion of the line can be changed to any of the 29 values in the
intellisense list that appears when typing the line.
Pwr
Figure 73 – Intellisense in the VBE
Manipulating AutoShapes
When building a presentation, it is often necessary to change the color of some
of the shapes within a presentation. Because the basic presentation is used for
several purposes, it is not desirable to have to redesign the slides each time the
colors need to be changed. It is easy to automatically change the shape’s color
based on the shape that is selected when a macro is run.
 
Search JabSto ::




Custom Search