Menu

getting rid of selection for formatting

Search this Thread

#1

Report Post

Posted to microsoft.public.excel.programming

Don Guillett Don Guillett is offline

Don Guillett is offline

external usenet poster

Posts: 10,124

Default

getting rid of selection for formatting

borderaround

--
Don Guillett
SalesAid Software

"Arnold Klapheck" wrote in
message ...
I have been given code that seems repetative, was trying to figure out a
way
to shorten it up and make more efficient. is there a way to refer to the
borders with one command. I was thinking of doing with within
with
statements as follows

[***My Thoughts***]
With Range(A1:AQ1")
With .borders(xlEdgeLeft,wlEdgeTop, ..etc)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Font
.Name = "Arial"
.Size = 8
.Bold = False
.ColorIndex = xlAutomatic
End With
End With

[***The Code I need to modify***]
Range("A1:AQ1").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection
.NumberFormat = "General"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
With Selection.Font
.Name = "Arial"
.Size = 8
.Bold = False
.ColorIndex = xlAutomatic
End With
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With

Reply With Quote

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copying Formatting - 'Selection Too Large'	RJB	Excel Discussion (Misc queries)	2	March 11th 08 07:23 PM
Formatting Selection of cells.	jimbob007	Excel Discussion (Misc queries)	3	February 13th 06 09:00 AM
center across selection formatting	Dave Breitenbach	Excel Discussion (Misc queries)	1	November 15th 05 01:54 AM
Conditional Formatting and selection	Kristin N	Excel Discussion (Misc queries)	2	September 15th 05 06:27 PM
Formatting a ComboBox selection	Ray Kanner[_2_]	Excel Programming	9	January 2nd 04 06:12 PM

All times are GMT +1. The time now is 10:52 AM.

About Us

"It's about Microsoft Excel"

Contact Us ExcelBanter forum home Privacy Statement