change font size and bold in cell?

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?
 
D

Don Guillett

Sub setfont()
With ActiveCell
..Font.Size = 12
..font.bold=true
..Offset(1).Font.Size = 10
..Offset(2).Font.Size = 16

End With
End Sub
 
R

R Doornbosch

I can change the font and make it BOLD but the keyword Offset doesn't seem
to do anything.
 
D

Don Guillett

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.
 
R

R Doornbosch

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
 
R

R Doornbosch

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.
 
G

Gord Dibben

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
 
Top