이름으로 여러 도형 참조하기

Question

커맨드 버튼을 클릭하면 여러 도형 (삽입 -> 도형으로 생성 된 표준 사각형 만)을 노려는 중입니다. 모든 도형을 선택하고 "rect"라고 이름을지었습니다. 이름 관리자는 이름이 존재하고 모든 지정된 도형을 포함하고 있음을 인정합니다. 그러나 이것을 실행할 때

ActiveSheet.Shapes("rect").Fill.ForeColor.RGB = RGB(255, 255, 0) 

"지정한 이름의 항목을 찾을 수 없습니다."라는 오류가 발생합니다. 이상한 것은 이것이 단 하나의 도형으로 완벽하게 잘 동작하지만 이름이 여러 도형을 참조 할 때 작동하지 않는다는 것입니다. 어떤 아이디어? 고맙습니다.

Answer 1

필요에 따라 모든 모양을 선택하고

Sub Carmello() 
Selection.Group.Select 
Selection.Name = "rect" 
ActiveSheet.Shapes("rect").Fill.ForeColor.RGB = RGB(255, 255, 0) 
End Sub