Designs.Add (PowerPoint)

Returns a Design object that represents a new slide design.

Syntax : expression.Add (designName, Index)

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

Arguments

The following argument is required

designName (String) - The name of the design.

The following argument is optional

Index (Long) - The index number of the design in the Designs collection. The default value is -1, which means that if you omit the Index parameter, the new slide design is added at the end of existing slide designs.