VBA QuestionPowerpoint

[Jim]

I have copy the following macro from the internet

If ActiveWindow.Selection.Type = ppSelectionText Then
With ActiveWindow.Selection.TextRange.Font
.Shadow = msoTrue
.Bold = msoTrue
End With
Else
MsgBox "You need to select some text."
End If

It works but the "shadow" is not big enough. Is there a way to make
the shadow wider

 

[Steve Rindsberg]

I have copy the following macro from the internet

If ActiveWindow.Selection.Type = ppSelectionText Then
With ActiveWindow.Selection.TextRange.Font
.Shadow = msoTrue
.Bold = msoTrue
End With
Else
MsgBox "You need to select some text."
End If

It works but the "shadow" is not big enough. Is there a way to make
the shadow wider

' work with shape instead of the text.font:
With ActiveWindow.Selection.ShapeRange
' you can set the color
.Shadow.ForeColor.SchemeColor = ppAccent3
' or rgb values
.Shadow.ForeColor.RGB = RGB(0, 0, 255)
.Shadow.Visible = msoTrue
' and set the offests to as lunatic a value as you like
.Shadow.OffsetX = 72
.Shadow.OffsetY = 144
End With

 

[Jim]

' work with shape instead of the text.font:
With ActiveWindow.Selection.ShapeRange
' you can set the color
.Shadow.ForeColor.SchemeColor = ppAccent3
' or rgb values
.Shadow.ForeColor.RGB = RGB(0, 0, 255)
.Shadow.Visible = msoTrue
' and set the offests to as lunatic a value as you like
.Shadow.OffsetX = 72
.Shadow.OffsetY = 144
End With

I am aware of this method of shadowing which is shape based not text
based. The problem I have with the method is that you can not use any
typed of custom animation to make the text appear. The shadow is
there even when the text is not. Do you have a way around this
limitation?

 

[Steve Rindsberg]

I am aware of this method of shadowing which is shape based not text
based. The problem I have with the method is that you can not use any
typed of custom animation to make the text appear. The shadow is
there even when the text is not. Do you have a way around this
limitation?

Ah. 2007.

About all I can suggest is that you wait for SP2 to appear and hope that this
bug is fixed when it does. MS is aware of it.

Or create your own pseudo-shadow by duplicating the text, offsetting/recoloring
it and so on, then grouping it with the original so that you can animate them
together.

 

[jim]

Well at east it is not me. And from what you were saying it was not
corrected in SP1 (Which I still have not loaded)

 

[Steve Rindsberg]

Well at east it is not me. And from what you were saying it was not
corrected in SP1 (Which I still have not loaded)

That's correct, it's not fixed in SP1.