I'm trying to make a powerpoint from excel.
In the powerpoint there will be pictures automatically (this all is working).
On top of a picture I put a textbox with text.
For a better look I want the text glow so the contrast will be better.
I'm using next vba-code ... (in a subroutine)
Set myTextBox = oSld.Shapes.AddTextbox(msoTextOrientationHorizontal, _
Left:=hpos, Top:=vpos + HeightOud - 75, Width:=WidthOud, Height:=50)
With myTextBox.TextFrame.TextRange
.Text = Trim(Voornaam) & " " & Trim(Tuss) & " " & Trim(Achternaam) & Chr(10) & Trim(Id)
.Text = Application.Substitute(.Text, " ", " ")
With .Font
.Size = 12
.Name = "Silom"
.Color.RGB = RGB(255, 255, 255)
With .Glow
.Radius = 8
.Color = RGB(255, 0, 255)
End With
End With
.ParagraphFormat.Alignment = 1
End With
All seem to work fine ... but no glow ...
What do I do wrong ...?
Can someone help?
I'm using excel 2011 on a Mac (last update 14.7.7)
Thanks in advance
In the powerpoint there will be pictures automatically (this all is working).
On top of a picture I put a textbox with text.
For a better look I want the text glow so the contrast will be better.
I'm using next vba-code ... (in a subroutine)
Set myTextBox = oSld.Shapes.AddTextbox(msoTextOrientationHorizontal, _
Left:=hpos, Top:=vpos + HeightOud - 75, Width:=WidthOud, Height:=50)
With myTextBox.TextFrame.TextRange
.Text = Trim(Voornaam) & " " & Trim(Tuss) & " " & Trim(Achternaam) & Chr(10) & Trim(Id)
.Text = Application.Substitute(.Text, " ", " ")
With .Font
.Size = 12
.Name = "Silom"
.Color.RGB = RGB(255, 255, 255)
With .Glow
.Radius = 8
.Color = RGB(255, 0, 255)
End With
End With
.ParagraphFormat.Alignment = 1
End With
All seem to work fine ... but no glow ...
What do I do wrong ...?
Can someone help?
I'm using excel 2011 on a Mac (last update 14.7.7)
Thanks in advance