Using .glow to glow text in textbox

gangnam

New Member
Joined
Jan 2, 2017
Messages
11
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
 

Some videos you may like

Excel Facts

Get help while writing formula
Click the italics "fx" icon to the left of the formula bar to open the Functions Arguments dialog. Help is displayed for each argument.

gangnam

New Member
Joined
Jan 2, 2017
Messages
11
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


I solved the problem written above.
Now I'm using windows machine and see ... it works ...
thread can be closed
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,542
Messages
5,511,938
Members
408,869
Latest member
MM005

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top