change font size and bold in cell?

  • Thread starter Thread starter R Doornbosch
  • Start date Start date
R

R Doornbosch

When I use

Worksheets("Teacher Info").Range("A1").Value = "Teacher Information

AM Class"

How can I make it so the first line is Font 12 (Bold)
the second line if Font 10
Third line is font 16?

All of this information is in the same cell?
 
Sub setfont()
With ActiveCell
..Font.Size = 12
..font.bold=true
..Offset(1).Font.Size = 10
..Offset(2).Font.Size = 16

End With
End Sub
 
I can change the font and make it BOLD but the keyword Offset doesn't seem
to do anything.
 
If you have
A
B
C
and place your cursor on A, it will do font size to
A=12
B=10
C=16

I thought that is what you wanted.???
Offset means down 1. If it was offset(1,2) would be down 1 and to the right
2.
 
Cell A1 = the text below, when I use
Offset(1) .font = 20 the text remains at font 12, I'd like the school
name to be font 16 and the teacher name to be font 14 THANKS


A.A. PUBLIC SCHOOL
Chatham-Kent

Teacher Name
3 - Alternating full day, starting Monday
 
Sorry, I did use Font.Size and it still doesn't affect the text. I cut and
past your code perfectly, every other line in your code works except the
Offset command.
 
The code Don gave you does not change font sizes within a cell, rather it
changes fonts in 3 contiguous cells in a column.

Gord Dibben Excel MVP
 
Back
Top