software

I've downloaded a 12-month-on-1-page 2006 calendar into Excel. Each
individual date is its own text box. I would like to increase the size of
the font for every text box. Is there a way to do it globally or do I have
to change each text box individually?

Try a macro like the followingSub IncreaseFont()
Dim OLEObj As OLEObject
For Each OLEObj In Worksheets(quot;Sheet1quot;).OLEObjects
With OLEObj
If TypeOf .Object Is MSForms.TextBox Then
.Object.Font.Size = 16 ' whatever font size you want
End If
End With
Next OLEObj
End Sub--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.comquot;MamaBirdiequot; gt; wrote in
message
...
gt; I've downloaded a 12-month-on-1-page 2006 calendar into Excel.
gt; Each
gt; individual date is its own text box. I would like to increase
gt; the size of
gt; the font for every text box. Is there a way to do it globally
gt; or do I have
gt; to change each text box individually?
Mama

Gord Dibben
Dec 20 2005, 10:02 am show options

Newsgroups: microsoft.public.excel.newusers
From: Gord Dibben lt;gorddibbATshawDOTcagt; - Find messages by this author
Date: Tue, 20 Dec 2005 10:02:45 -0800
Local: Tues, Dec 20 2005 10:02 am
Subject: how to change font size on calender
Reply | Reply to Author | Forward | Print | Individual Message | Show
original | Report Abuse

BertMost of the Calendars from the Template Gallery have the day numbers
inside
individual Text Boxes.You can manually select these one by one and change the font size or
use a macro to cycle through each box.

For the 2006 12 month per page calendar this code will work.

Sub Change_Font()
Columns(quot;B:Hquot;).Select
ActiveSheet.DrawingObjects.Select
For Each TextBox In Selection
With TextBox.Characters(Start:=1, Length:=2).Font
.Name = quot;Comic Sans MSquot;
.FontStyle = quot;Regularquot;
.Size = 14
.ColorIndex = xlAutomatic
End With
Next
Range(quot;E3quot;).Select
End SubGord Dibben Excel MVPOn Mon, 9 Jan 2006 08:47:03 -0800, quot;MamaBirdiequot;
gt; wrote:

gt;I've downloaded a 12-month-on-1-page 2006 calendar into Excel. Each
gt;individual date is its own text box. I would like to increase the size of
gt;the font for every text box. Is there a way to do it globally or do I have
gt;to change each text box individually?

Gord Dibben MS Excel MVP