Learn how Concerto can help you.
Why don't I get the tighter dot spacing when I set this via VBA? Does anybody know a workaround?
Sub testdottedcircle() Dim newshape As Shape Set newshape = ActivePresentation.Slides(1).Shapes.AddShape(msoShapeOval, _ Left:=63, Top:=179, Width:=198, Height:=198) With newshape .Fill.Visible = msoFalse .Line.Visible = True .Line.Weight = 2 .Line.DashStyle = msoLineRoundDot .Line.ForeColor.ObjectThemeColor = msoThemeColorLight1 End With End Sub
Join the community of 500,000 technology professionals and ask your questions.