Need code to make selected shape transparent

[djl0525]

I need two (separate) macros.

1. Change fill color of select shape to black.
2. Change fill color of select shape to transparent.

I tried recording them, but the steps are not captured.

Note: The shape will always be selected before the code is run.

Thanks for your help.
--DJ

 

[S8utt]

Try this

    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

remove the fill again ( making the fill none therefore transparent ? )

Selection.ShapeRange.Fill.Visible = msoFalse

 

[djl0525]

Thanks! This is just what I needed.

I added keyboard shortcuts to them, but only the shortcut for black works. Do you see any reason the shortcut for the transparent code wouldn't work? They're in different modules.

--DJ

Sub ShapeFillBlack()
'04/18/09 - Written by MrExcel's S8utt
'Source: http://www.mrexcel.com/forum/showthread.php?t=384877
'This code changes a shape's fill color to black

' Keyboard Shortcut: Ctrl+e

    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End Sub

Sub ShapeFillNone()
'04/18/09 - Written by MrExcel's S8utt
'Source: http://www.mrexcel.com/forum/showthread.php?t=384877
'This code changes a shape's fill color to transparent

' Keyboard Shortcut: Ctrl+t

Selection.ShapeRange.Fill.Visible = msoFalse
End Sub

 

[S8utt]

Note sure here is all the code for both operations.

Fill Colour

    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

unfill

    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)

i eliminated the line comments and just kept the lines that had fill in them

    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8
    Selection.ShapeRange.Fill.Transparency = 0#

    Selection.ShapeRange.Fill.Visible = msoFalse
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.Transparency = 0#

obviously the trasparency and solid lines are the same.
What I would do is run the macro to make it transparent and then go into the format shape box and see what still needs to be set to make it no fill, maybe give us an idea where to start.

The previous macro worked for me fine on excel 2003