You guys are always so good at these obscure programming questions. Here another one.
I'm providing a command button on a PowerPoint Add-in toolbar that helps the user draw a stylized line with arrowhead in the proper thickness, dash style, color, etc.
I accomplish this by having VBA draw a small dummy line, stylizing it as desired, setting its properties as the default shape properties, then deleting it. Then I use SendKeys to put the user into drawing mode with arrow selected.
Works fine except that the endArrowHead properties do not seem to "stick" and I get the default arrowhead. Try out my code and you'll see what I mean.
Dim myline As Shape
Dim currentslide As Slide
Set currentslide = ActivePresentation.Slides(ActiveWindow.View.Slide.SlideIndex)
Set myline = currentslide.Shapes.AddLine(10, 10, 50, 50)
.Weight = 2
.DashStyle = msoLineRoundDot
.DashStyle = msoLineSysDot
.ForeColor.ObjectThemeColor = 3
.ForeColor.Brightness = 0.4
.BeginArrowheadStyle = msoArrowheadOval
.EndArrowheadStyle = msoArrowheadTriangle
.EndArrowheadWidth = msoArrowheadWide
.EndArrowheadLength = msoArrowheadLong
Anybody know why the arrowhead styling is not being saved along with the other default properties? I get the same result if I manually right-click my dummy line and "save as default line" so I think it's a PowerPoint issue, not a VBA issue. Is there a workaround? THANKS.