I found the Macro at this website, and since they will not let me put the website link I willDiane, I use PowerPoint 2000; to double underline a selected word, I have a macro created! This is the code I use, which can be used to double underline the selected word, and to remove the double underline too; but I have found that if you use it to remove the double underlines after using it to double underline selected words on the powerpoint slide that it will remove the double underlines of all of the words on the slide that you use it to put double underlines underneath! Yet, it works otherwise; perhaps, someone can fix the un-double underlining portion to just un-doubleunderline only the current selected one on the powerpoint slide!
This is the code:
Sub DoubleUnderline()
Dim oRng As TextRange
Dim lLineCount As Long
Dim oLine As Shape
Dim dOffset As Double
dOffset = 2 ' space between underlines in points
' change if you like
With ActiveWindow.Selection.TextRange
For lLineCount = 0.5 To .Lines.Count
Set oRng = .Lines(lLineCount)
With oRng
Set oLine = ActiveWindow.Selection.SlideRange.Shapes.AddLine( _
.BoundLeft, .BoundTop + .BoundHeight, _
.BoundLeft + .BoundWidth, .BoundTop + .BoundHeight)
Call oLine.Tags.Add("Underline", "YES")
With oLine.Duplicate(1)
.Left = oLine.Left
.Top = oLine.Top + dOffset
Call .Tags.Add("Underline", "YES")
End With
End With
Next
End With
End Sub
Sub UnUnderline()
' Removes underlines added by DoubleUndies
Dim oSh As Shape
Dim x As Long
With ActiveWindow.Selection.SlideRange(1)
For x = .Shapes.Count To 1 Step -1
Set oSh = .Shapes(x)
If oSh.Tags("Underline") = "YES" Then
oSh.Delete
End If
Next
End With
End Sub
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.