Results 1 to 10 of 10
  1. #1
    Silver Lounger
    Join Date
    Dec 2000
    Location
    California, USA
    Posts
    1,758
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Partial Color Fill (XL97; SR2)

    Is it possible to partially fill a cell (width) with a color? Say 50% or 33.33% of the cell's width would be colored.

    Thanks,
    John

  2. #2
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Partial Color Fill (XL97; SR2)

    Interesting question. I have no idea, but I will hazard a guess: no.
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  3. #3
    Silver Lounger
    Join Date
    Dec 2000
    Location
    California, USA
    Posts
    1,758
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Partial Color Fill (XL97; SR2)

    You made my day.... <img src=/S/brickwall.gif border=0 alt=brickwall width=25 height=15>

  4. #4
    Gold Lounger
    Join Date
    Feb 2001
    Location
    Dublin, Ireland, Republic of
    Posts
    2,697
    Thanks
    1
    Thanked 0 Times in 0 Posts

    Re: Partial Color Fill (XL97; SR2)

    As Kevin suggested, the answer is no. Except you might be able to make it look like the cells are partially coloured (or multi coloured) by using the Camera tool. What is involved here is that you take a 'photo' of the cells you want to colour, and apply the colour to the picture you create. However it may not be practical but take a look at the attached file and see if you can do anything with the concept. The source data could be held on a different sheet.

    Andrew C
    Attached Files Attached Files

  5. #5
    3 Star Lounger
    Join Date
    Jan 2001
    Location
    Brisbane, Australia
    Posts
    245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Partial Color Fill (XL97; SR2)

    Bloody brilliant, Andrew. Great lateral thinking!

    Many years ago, I had trained MS Excel users in the use of the Camera, (in a version too far back to recall, it even used to show on one of the Toolbars, but I had long since forgotten about it.

    And as the result of using the Camera is a graphic object, you can do the sort of things that John was seeking.

    (For other users that want to try it out, get the Camera by Tools | Customize | Commands (tab) | drag the Camera to a suitable toolbar and presto! You have a great new way to jazz up MS Excel spreadsheets. (Following Andrew's suggestion, try hiding the original worksheet after you format the column widths, fonts, etc. But don't format the cells for background colour of the hidden sheet or it will override your graphic settings.))

    Have fun...

    Leigh <img src=/S/flags/Australia.gif border=0 alt=Australia width=30 height=18>

  6. #6
    Super Moderator
    Join Date
    May 2002
    Location
    Canberra, Australian Capital Territory, Australia
    Posts
    5,054
    Thanks
    2
    Thanked 417 Times in 346 Posts

    Re: Partial Color Fill (XL97; SR2)

    Hi John,

    Although you can't colour part of a cell, you can simulate it by partially overlaying the cell with a text box or autoshape and colouring that. If you also set the colour to 'semi-transparent' you'll still be able to see through the text box/autoshape too, though not as clearly as when the colouring is in the cell itself.

    HTH
    Cheers,

    Paul Edstein
    [MS MVP - Word]

  7. #7
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Partial Color Fill (XL97; SR2)

    Andrew,

    A magnificent workaround. That looks great! <img src=/S/fanfare.gif border=0 alt=fanfare width=31 height=23>
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  8. #8
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Partial Color Fill (XL97; SR2)

    ...of course, the trick is to automate that.
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  9. #9
    Gold Lounger
    Join Date
    Feb 2001
    Location
    Dublin, Ireland, Republic of
    Posts
    2,697
    Thanks
    1
    Thanked 0 Times in 0 Posts

    Re: Partial Color Fill (XL97; SR2)

    Well try this Kevin :

    Sub FancyColumns()
    Application.ScreenUpdating = False
    Dim lCols As Long
    Dim lRows As Long
    Dim oSheet As Worksheet
    Set oSheet = ThisWorkbook.Sheets(1)
    With oSheet
    lCols = .UsedRange.Columns.Count
    lRows = .UsedRange.Rows.Count
    End With
    For I = 1 To lCols
    [A1].Offset(0, I - 1).Select
    Selection.ColumnWidth = oSheet.Cells(I).ColumnWidth
    Selection.CopyPicture _
    Appearance:=xlScreen, _
    Format:=xlPicture
    ActiveSheet.Pictures.Paste.Select
    With Selection
    .Formula = oSheet.Name & "!" & _
    Intersect(oSheet.UsedRange, _
    oSheet.Columns(I)).Address
    End With
    With Selection.ShapeRange.Fill
    .ForeColor.SchemeColor = 65
    .BackColor.SchemeColor = 31
    .TwoColorGradient msoGradientVertical, 1
    End With
    Next
    Application.ScreenUpdating = True
    End Sub

    The above copies each column of the first sheet (Sheets(1), which can be changed) to the activesheet (blank) and fancies them up. A starting point perhaps.

    Andrew

  10. #10
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Partial Color Fill (XL97; SR2)

    Andrew...

    Absolutely brilliant.
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •