Adding manual shadow textbox to shape

[Silvester]

In Shyam Pillai's code below, a textbox appears locked to the bottom of the
slide. Since PP's font shadows are not very effective -

What if I want to add a manual shadow - another identical textbox slightly
offset behind the first aligned textbox, maybe 5 points, in a dark colour.

With the current code a shape is obviously locked into position. How can I
tweak positions a bit to enable manual shadows ?

'========================
Dim oSlide As Slide
Dim oShp As Shape
Set oSlide = ActiveWindow.Selection.SlideRange(1)
Set oShp = oSlide.Shapes.AddShape(msoTextOrientationHorizontal, 0#, 0#,
700#, 36#)

With oShp.TextFrame.TextRange
.Text = "1 This should appear at the bottom of the slide" & vbCrLf &
_
"2 This should appear at the bottom of the slide"

.ParagraphFormat.Bullet.Type = ppBulletNone
With .Font
.Name = "Arial": .Size = 28: .Bold = msoTrue:
.Italic = msoFalse: .Underline = msoFalse: .Shadow = msoTrue
End With

End With
With oShp
If .Width < .TextFrame.TextRange.BoundWidth Then
.Width = .TextFrame.TextRange.BoundWidth
End If
If .Height < .TextFrame.TextRange.BoundHeight Then
.Height = .TextFrame.TextRange.BoundHeight
End If
End With
With oSlide.Shapes.Range(oShp.ZOrderPosition)
.Align msoAlignBottoms, True
.Align msoAlignRights, True
End With
'-------------------------------------------------

 

[Silvester]

Thanks very much Steve.

I needed to add
oShp.Fill.Visible = msoFalse
oShpTwo.Fill.Visible = msoFalse
and then everything worked fine