Code: Select all
Sub AddEmDashToEndOfText(mySlide As Long)
Dim pptSlide As Slide
Dim pptShape As Shape
Dim pptTextRange As TextRange
Set pptSlide = ActivePresentation.Slides(mySlide)
Set pptShape = pptSlide.Shapes(2)
Set pptTextRange = pptShape.TextFrame.TextRange
With pptTextRange.Characters(pptTextRange.Length)
' .Font.Bold = msoFalse
' .Font.Underline = msoFalse
.InsertAfter Chr(32) & ChrW(&H2014)
End With
End Sub