Results 1 to 4 of 4

Thread: RESOLVED[Colors]

Threaded View

  1. May 26th, 2006, 10:35 AM #1
    Fonty
    Fonty is offline

    Thread Starter
    Addicted Member Fonty's Avatar
    Join Date
    May 2006
    Location
    New York
    Posts
    173

    Resolved RESOLVED[Colors]

    To fill some shape with white color I use the following intructions:
    VB Code:
    1. ActiveSheet.Shapes(i).Select

    2. Selection.ShapeRange.Fill.Solid

    3. Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1
    However I'm unable to run something like
    VB Code:
    1. ActiveSheet.Shapes(i).Select

    2. If Selection.ShapeRange.SchemeColor = 1 Then

    3. GoTo end

    4. Else

    5. Selection.ShapeRange.Fill.Solid

    6. Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1

    7. End If

    8. End:
    How can I write a condition on the color of a shape?
    Last edited by Fonty; May 26th, 2006 at 01:02 PM.
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

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

Forum Rules


Click Here to Expand Forum to Full Width