fonts invisible

[jefflee]

Hi, there
after ransacking the web for a long time . I cannot find the code to make the font invisible/
question : is it possible to write a code to make fonts invisible ?

thanks

 

[JoeMo]

Try:

Range("A1:A10").font.color=Range("A1:A10").Interior.Color

change the range to suit.

 

[Trebor76]

Deleted. Joe's solution is far better.

 

[Rick Rothstein]

As long as your cells are not displaying any error values (#VALUE!, #N/A, etc.), you can select the cells and Custom Format them using this...

;;;

If you need VBA code, this line of code will do the same thing...

Range("A1:A10").NumberFormat = ";;;"

Change the range as necessary.

 

[jefflee]

Thanks,
done.
working on making the fonts in the text box invisible.
could you give a hand ?

 

[Rick Rothstein]

working on making the fonts in the text box invisible.
could you give a hand ?

Where is the TextBox located at... on a UserForm or on a worksheet? If it is on a worksheet, is it an ActiveX TextBox or a Forms TextBox (from the Insert tab/Text panel on the Ribbon)?

 

[jefflee]

hi , this is my code

If Cells(4, 42) = 1 Then

ActiveSheet.Shapes("scale1").Select
With Selection
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.Visible = msoTrue
End With

ActiveSheet.Shapes("scale1b").Select
With Selection
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.Visible = msoFalse

ActiveSheet.Shapes("num1").Select

With Selection
.ColorIndex = Interior.Color
End With


End If
End Sub


my objective is to make the text in shape num1 invisible.
but error occurs

 

[Rick Rothstein]

hi , this is my code

If Cells(4, 42) = 1 Then

ActiveSheet.Shapes("scale1").Select
With Selection
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.Visible = msoTrue
End With

ActiveSheet.Shapes("scale1b").Select
With Selection
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.Visible = msoFalse

ActiveSheet.Shapes("num1").Select

With Selection
.ColorIndex = Interior.Color
End With


End If
End Sub


my objective is to make the text in shape num1 invisible.
but error occurs

Try replacing the highlighted line of code with this...

.TextFrame.Characters.Font.Color = .Fill.BackColor

 

[jefflee]

Thanks Rick,

it just highlighted with yellow and no message error show.
try many times.
is it the matter of version ? i use 2003

Thanks thanks

 

[Rick Rothstein]

Thanks Rick,

it just highlighted with yellow and no message error show.
try many times.
is it the matter of version ? i use 2003

I don't know... I use XL2010 and the code I posted worked fine for me when I tested it prior to posting it. Maybe one of the properties I used was not available in XL2003... that would explain the error you are reporting.