Class Design (PowerPoint VBA)

The class Design represents an individual slide design template. The Design object is a member of the Designs and SlideRange collections and the Master and Slide objects.

The main procedures of class Design are Delete and Designs.Add


To use a Design class variable it first needs to be instantiated, for example

Dim dsg as Design
Set dsg = ActivePresentation.Designs(Index:=1)

The following procedures can be used to set variables of type Design: CustomLayout.Design, Designs.Item, Designs.Add, Designs.Clone, Designs.Load, Master.Design, Slide.Design, SlideRange.Design and Presentation.Designs


These are the main methods of the Design class

Delete - Deletes the specified Design object.


Designs.Add - Returns a Design object that represents a new slide design.

Dim strdesignName As String: strdesignName = 
Dim dsg As Design
Set dsg = ActivePresentation.Designs.Add(designName:=strdesignName)

Other Methods

Designs.Clone - Creates a copy of a Design object.

Dim dsgClone As Design
Set dsgClone = ActivePresentation.Designs.Clone(pOriginal:=)

Designs.Load - Returns a Design object that represents a design loaded into the master list of the specified presentation.

Dim strTemplateName As String: strTemplateName = 
Dim dsgLoad As Design
Set dsgLoad = ActivePresentation.Designs.Load(TemplateName:=strTemplateName)


Index returns a Long that represents the index number for an animation effect or design.

Dim lngIndex As Long
lngIndex = ActivePresentation.Designs(1).Index

Name returns or sets the name of the specified object.

ActivePresentation.Designs(1).Name =

Parent returns the parent object for the specified object.

Dim objParent As Object
Set objParent = ActivePresentation.Designs(1).Parent

Preserved represents whether a design master is preserved from changes.

ActivePresentation.Designs(1).Preserved = msoTrue

SlideMaster returns a Master object that represents the slide master.

Dim mstSlideMaster As Master
Set mstSlideMaster = ActivePresentation.Designs(1).SlideMaster

Designs.Count returns the number of objects in the specified collection.

Dim lngCount As Long
lngCount = ActivePresentation.Designs.Count

Designs.Parent returns the parent object for the specified object.

Dim objParent As Object
Set objParent = ActivePresentation.Designs.Parent