Format Text

[magnel]

Hello,

I am using PPT 2010 and I am trying to add glow to text with the following piece of code.

Sub TextGlow()
Dim oshp1 As Shape
Set oshp1 = ActiveWindow.Selection.ShapeRange(1)
With oshp1.TextFrame2.TextRange 'Make use of the new object to access Glow for text
.Font.Glow.Radius = 8
.Font.Glow.Color = RGB(255, 255, 255)
End With
End Sub


I am able to apply the glow only to one textbox at a time. Can I select multiple textboxes and apply this glow to selected textboxes.

Thanks

[John Wilson]

Sub TextGlow()
Dim oshpR As ShapeRange
On Error GoTo err
Set oshpR = ActiveWindow.Selection.ShapeRange
With oshpR.TextFrame2.TextRange 'Make use of the new object to access Glow for text
.Font.Glow.Radius = 8
.Font.Glow.Color = RGB(255, 255, 0)
End With
Exit Sub
err:
MsgBox "Select shapes with text!"
End Sub

[magnel]

Thanks John, this works absolutely perfect!

[User_1]

is it possible to apply the glow ONLY to selected text, as opposed to all the text in the shape?

[John Wilson]

Sub TextGlow()'NOTE THIS IS FOR 2010 ON
On Error GoTo err
With ActiveWindow.Selection.TextRange2 'Make use of the new object to access Glow for text
.Font.Glow.Radius = 8
.Font.Glow.Color = RGB(255, 255, 0)
End With
Exit Sub
err:
MsgBox "Select text!"
End Sub

[User_1]

Excellent! Thank you so much John!

[User_1]

is it possible to convert that code to an excel-compatible version?

[John Wilson]

Not easily