Changing the attributes of just one shape in a group

NewOrderFac33

Well-known Member
Joined
Sep 26, 2011
Messages
1,255
Good afternoon,

I have two grouped objects, a round cornered rectangle and a star, both of which have a fill colour and a border colour.

I want, via VBA obviously to be able to alter the colour of the fill and the border of the rectangle, without altering the fill and the border of the star.

I can't refer to the rectangle and the star by their individual object names, as there are multiple occurrences of grouped rectangles/stars on which I want to perform the operation, having selected the group previously.

Here's what I currently have, but when I run it, it changes the colours of both rectangle and star - I need to be able to just change the rectangle.

Can any of you good folks help?

As always, thanks in advance.
Pete
Code:
Sub InProgress_High()

    Dim ActiveShape As Shape
    Dim UserSelection As Variant
    Set UserSelection = ActiveWindow.Selection

    On Error GoTo NoShapeSelected
    Set ActiveShape = ActiveSheet.Shapes(UserSelection.Name)
    'On Error Resume Next
    
    'Pastel Red fill
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent2
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0.400000006
        .Transparency = 0
        .Solid
    End With

    'Black text
    With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 0, 0)
        .Solid
    End With
    
    'Bright Red Border
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Weight = 3
    End With
    
    Exit Sub

NoShapeSelected:
    MsgBox "You do not have a shape selected!"

End Sub
 
Last edited:

Some videos you may like

Excel Facts

Convert text numbers to real numbers
Select a column containing text numbers. Press Alt+D E F to quickly convert text to numbers. Faster than "Convert to Number"

NewOrderFac33

Well-known Member
Joined
Sep 26, 2011
Messages
1,255
Oh, and one other thing, not all selected objects will have a star - some are just a rectangle, which obviously won't be grouped.

So, what I'm looking for is:

If the selection has more than two objects, cycle through them until you hit the rectangle and make the changes to that.

Cheers

Pete
 
Last edited:

NewOrderFac33

Well-known Member
Joined
Sep 26, 2011
Messages
1,255
OK, it was late and I was being lazy!
Code:
Sub AA_ObjectCycle()
    Dim MyCount As Long
    Dim MyShape As Shape
    Dim UserSelection As Variant
    
    Set UserSelection = ActiveWindow.Selection
    Set MyShape = ActiveSheet.Shapes(UserSelection.Name)


    For MyCount = 1 To MyShape.GroupItems.Count
        MsgBox (MyShape.GroupItems(MyCount).Name)
        If InStr(MyShape.GroupItems(MyCount).Name, "Rectangle") > 0 Then
            MsgBox ("Rectangle!")
            'do stuff
        Else
            MsgBox ("Star!")
            'do stuff
        End If
    Next
End Sub
 
Last edited:

Watch MrExcel Video

Forum statistics

Threads
1,123,530
Messages
5,602,200
Members
414,513
Latest member
junbuggle

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top