Need macro to fill color

[djl0525]

I'm trying to create a macro to change the fill color of the selected object to black. I recorded a macro and got the code below. It works unless I select an object with a group which is what I need it for.

Can this code be modified to change the fill color the selected object in a group?

Sub Fill_Black()
'
' Fill_Blank Macro

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 8

End Sub

-- DJ

 

[ravishankar]

HI
Your problem is not clear. if you want to change to different color, change no 8 to the color of your choice

 For a = 1 To 50
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = a
    MsgBox a
    Next a

select the object and Run the code to choose the color index
Ravi

 

[djl0525]

Thank you for your reply. I will try to clarify my problem...

I have grouped several AutoShapes. I frequently need to change the color of individual AutoShapes in the group.

Here's what I do manually:
I select a group of AutoShapes. I click again to select an object in the group. Then I click a fill color and the selected shape is filled with the selected color. I can record a macro to fill the group of AutoShapes, but I don't want it to fill everything in the group. I need it to fill the selected AutoShape in the group.

Is my explanation of the problem clearer?

-- DJ

By the way, I tried your code. It gets me 50 message boxes that display 1-50, not an input box where I can put in a number.

 

[ravishankar]

Hi

a= inputbox("enter the color code for the selected shape")
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = a

Select one or more of shapes and run the macro. My earlier macro was to find the color code of the color of your choice.
Ravi

 

[djl0525]

Thanks, but the challenge is not selecting a color. The challenge is getting the selected color to be applied to an object within the group.

-- DJ

 

[ravishankar]

Hi
the macro changes the color of selected shapes. if you want to programmatically change it, you should list the names of the objects to be selected. each shape has a name and number ex: "Rectangle 2", "Text Box 5", "Oval 3", "Line 4", triangle 7 etc. use
ActiveSheet.Shapes("Rectangle 2").Select and color it.
Ravi

 

[djl0525]

It's too bad VB does not recognize that I have already selected the object I want to color within the group. But I'll try to work with this.

Thanks a bunch! -- DJ