Change font in graph

[mrroland]

Hi,

I inherrited this script from someone else and can't really understand it. What the script will do is create a graph with all kind of balloons. Within this balloon a number will appear. Now the problem is that the font of this number is white. This is hard to read so we want it black. However, struggling to find the correct syntax

This is part of the code where i think the correction needs to be made

Any feedback would greatly be appreciated.

Set shp = wsg.Shapes.AddShape(msoShapeOval, X, Y, 16, 16)
shp.Fill.ForeColor.RGB = RGB(corR, corG, corB)
shp.Name = "shp" & linha
' Set hyp = shp.Hyperlink.
' shp.Hyperlink.Address ("Data!A1:B2")
ReDim Preserve ashp(shpcont)
ashp(shpcont) = shp.Name
Set tf = shp.TextFrame
tf.Characters.Text = valcol
tf.Characters.Font.Size = 6
tf.HorizontalAlignment = xlHAlignCenter
tf.VerticalAlignment = xlVAlignCenter
End If

Kind regards,
Roland

 

[dermie_72]

try adding

tf.Characters.Font.Color = vbYellow (Or whatever color you want to choose)

 

[mrroland]

Thank you very much. It works

 

[mrroland]

One more question

What is the correct syntax the undo the wrapping of the texbox?

tried below but again a syntax error ...
tf.WordWrap = msoFalse

regards,
Roland

 

[dermie_72]

have you tried:

tf.TextWrapping = UnWrap

 

[mrroland]

Tried it

Dim UnWrap As Boolean
tf.TextWrapping = UnWrap

When it builds the graph it returns
Object does not support this property or method

 

[dermie_72]

If

tf.TextWrapping = False doesn't work go to the below link, it might offer a suggestion.

FreeVBCode code snippet: Turn WordWrap On or Off in an RTF Text Box

Sorry I couldn't be of more help.

 

[dermie_72]

If

tf.TextWrapping = False doesn't work go to the below link, it might offer a suggestion.

FreeVBCode code snippet: Turn WordWrap On or Off in an RTF Text Box

Sorry I couldn't be of more help.

 

[mrroland]

Thanks for all your assistance. Discovered that tf was actually a textframe so it would never support it. It needs to be set a shape.

This worked for me
shp.TextFrame2.WordWrap = msoFalse

Thanks again for helping

Cheers,
Roland