Archives December 2019

Christmas Is Really For The Children – Poem by Steve Turner

Christmas is really
for the children.
Especially for children
who like animals, stables,
stars and babies wrapped
in swaddling clothes.
Then there are wise men,
kings in fine robes,
humble shepherds and a
hint of rich perfume.

Easter is not really
for the children
unless accompanied by
a cream filled egg.
It has whips, blood, nails,
a spear and allegations
of body snatching.
It involves politics, God
and the sins of the world.
It is not good for people
of a nervous disposition.
They would do better to
think on rabbits, chickens
and the first snowdrop
of spring.

Or they’d do better to
wait for a re-run of
Christmas without asking
too many questions about
what Jesus did when he grew up
or whether there’s any connection.

Steve Turner


Powerpoint VBA to Insert Textbox and Create Outlined Text

Sub SPRtextbox()
      Dim mySlide As PowerPoint.Slide
      Dim strMsg As String
      Dim myTextbox As PowerPoint.Shape

      strMsg = InputBox("Enter Text", "SPR Macros")
      Set mySlide = ActivePresentation.Slides(ActiveWindow.View.Slide.SlideNumber)
      Set myTextbox = mySlide.Shapes.AddTextbox(msoTextOrientationHorizontal, _     Left:=0, Top:=10, Width:=200, Height:=50) 
      myTextbox.Fill.BackColor.RGB = RGB(127, 127, 127) 'grey 
      myTextbox.Fill.Transparency = 0.3 'translucent 
      myTextbox.Height = 150 
      myTextbox.Width = 300 
      myTextbox.TextFrame2.AutoSize = msoAutoSizeTextToFitShape 'https://www.pcreview.co.uk/threads/how-to-vba-code-shrink-text-on-overflow.3537036/#post-12183384 
With myTextbox.TextFrame.TextRange
     .Text = strMsg     
     With .Font         
         .Size = 32
         .Name = "Impact"
     End With 
End With 
With myTextbox.TextFrame2.TextRange.Font
     .Line.Visible = True
     .Line.ForeColor.RGB = RGB(0, 0, 0)
     .Line.Weight = 1 
End With

End Sub