in dieser Beispieldatei (https://www.herber.de/bbs/user/45468.xls) ist das Ändern der Farbe möglich. Warum kommt eine Fehlermeldung (1004), wenn der Text hinzugefügt werden soll?
Sub Schaltfläche7_BeiKlick()
Dim shObj As Shape, i1 As Integer, i2 As Integer, myArr() As Variant
Application.ScreenUpdating = False
Set shObj = Worksheets(1).Shapes("Group 5")
With shObj
i1 = .GroupItems.Count
For i2 = 1 To i1
ReDim Preserve myArr(1 To i2)
myArr(i2) = .GroupItems(i2).Name
Next i2
.Ungroup
End With
Worksheets(1).Shapes(myArr(UBound(myArr))).TextFrame.Characters.Text = Worksheets(1).Cells( _
2, 2).Value
Set shObj = Worksheets(1).Shapes.Range(myArr).Group
shObj.Name = "Group 5"
Set shObj = Nothing
Erase myArr()
Application.ScreenUpdating = True
End Sub
Gruß von Luschi