#1   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 390
Default Chamfer Cells

Hi,
I have a work sheet and the gridlines are tuned off.
The work sheet has a white backround and has groups of cells green in colour
within the white backround. Is it possible to chamfer the corners of the
green cells for aesthetic purposes?

Thanking you in advance.
  #2   Report Post  
Posted to microsoft.public.excel.setup
external usenet poster
 
Posts: 22,906
Default Chamfer Cells

Bill

First clear the background green color then select a range of cells and run this
macro to produce a semi-transparent colored shape over the cells.

Note: you can select multiple ranges to run on.

Sub RoundRectangle()
Dim X, y As Single, area As Range
For Each area In Selection.Areas
With area
X = .Height * 0#
y = .Width * 0#
ActiveSheet.Rectangles.Add Top:=.Top - X, Left:=.Left - y, _
Height:=.Height + 1 * X, Width:=.Width + 1 * y
End With
With ActiveSheet.Rectangles(ActiveSheet.Rectangles.Coun t)
.Interior.ColorIndex = 10
.ShapeRange.AutoShapeType = msoShapeRoundedRectangle
.ShapeRange.Fill.Transparency = 0.8
.ShapeRange.Line.Weight = 1.25
End With
Next area
End Sub


Gord Dibben MS Excel MVP

On Tue, 8 Jul 2008 12:26:15 -0700, Bill wrote:

Hi,
I have a work sheet and the gridlines are tuned off.
The work sheet has a white backround and has groups of cells green in colour
within the white backround. Is it possible to chamfer the corners of the
green cells for aesthetic purposes?

Thanking you in advance.


Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

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
Excel: match two cells in one sheet to two cells in another and return a third cells value Spence Excel Worksheet Functions 3 February 13th 11 06:33 AM
Cells won't change font color or show hi-lighted cells in document ROBIN Excel Discussion (Misc queries) 1 March 27th 08 10:39 PM
display a range of cells editible cells based on matching date Miki Excel Worksheet Functions 0 October 10th 07 03:27 PM
Setting of input cells as blue font and formula cells as black fon Sunnyskies Excel Discussion (Misc queries) 2 May 14th 07 05:27 PM
trying to create an (almost) circular formula between cells and data validated cells with lists KR Excel Worksheet Functions 0 May 12th 05 07:21 PM


All times are GMT +1. The time now is 03:37 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"