ShapeRange.SetShapesDefaultProperties Method
Applies the formatting for the specified shape to the default shape. Shapes created after this method has been used will have this formatting applied to them by default.
Namespace: Microsoft.Office.Interop.PowerPoint
Assembly: Microsoft.Office.Interop.PowerPoint (in Microsoft.Office.Interop.PowerPoint.dll)
Syntax
'Declaration
Sub SetShapesDefaultProperties
'Usage
Dim instance As ShapeRange
instance.SetShapesDefaultProperties()
void SetShapesDefaultProperties()
Examples
This example adds a rectangle to myDocument, formats the rectangle's fill, applies the rectangle's formatting to the default shape, and then adds another smaller rectangle to the document. The second rectangle has the same fill as the first one.
Set mydocument = ActivePresentation.Slides(1)
With mydocument.Shapes
With .AddShape(msoShapeRectangle, 5, 5, 80, 60)
With .Fill
.ForeColor.RGB = RGB(0, 0, 255)
.BackColor.RGB = RGB(0, 204, 255)
.Patterned msoPatternHorizontalBrick
End With
' Sets formatting for default shapes
.SetShapesDefaultPropertiesEnd With
' New shape has default formatting
.AddShape msoShapeRectangle, 90, 90, 40, 30
End With