This example adds a thick, blue compound line to myDocument
. The compound line consists of a thick line with a thin line on either side of it.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
.Style = msoLineThickBetweenThin
.Weight = 8
.ForeColor.RGB = RGB(0, 0, 255)
End With
This example sets the bullet style for the bulleted list, represented by shape one on the first slide, to a shadow color number with circular background of normal text color.
ActivePresentation.Slides(1).Shapes(1).TextFrame _
.TextRange.ParagraphFormat.Bullet _
.Style = ppBulletCircleNumWDBlackPlain