Excel VBA : 워크 시트의 현재 셰이프를 모두 ShapeRange에 추가하는 방법은 무엇입니까?

Question

다소 VBA 초보자가 여기 있습니다.

그것은 나에게 분명 방법 ShapeRange 사용하여 개별 또는 여러 Shape 객체를 생성합니다 :

Dim sht As Worksheet 
Set sht = MySht 
' 
'*Add some shapes* 
' 
Dim shprng As ShapeRange 
Set shprng = sht.Shapes.Range(Array(1,2,3)) 

shprng에 워크 시트에 현재 존재하는 형태의 ALL을 추가 할 수있는 방법이 있나요? 즉, Shapes 개체에서 ShapeRange을 반환하는 방법이 있습니까? 다음과 같은 내용 :

Set shprng = sht.Shapes.Range.SelectAll '<--- Does not work: Type Mismatch 
Set shprng = sht.Shapes     '<--- Same error 
Set shprng = sht.Shapes.Range   '<--- Error: Argument not optional 

감사합니다.

Answer 1

시트의 모든 셰이프를 선택하여 ShapeRange를 만들려면 먼저 셰이프를 선택하고 선택 개체에서 ShapeRange를 가져옵니다.

sht.Shapes.Range.SelectAll 
Set shprng = Selection.ShapeRange 

나는 보통이 벗겨지기 쉬운 경향이 이상한 상황에서 오류가 발생할 수 있기 때문에 VBA에서 선택 객체를 사용하지 않으. 더 나은 방법은 Shape 인덱스 배열을 만들고이 배열을 사용하여 ShapeRange를 가져 오는 것입니다.

Dim shape_index As Variant 
Dim i As Long 

ReDim shape_index(1 To sht.Shapes.Count) 
For i = 1 To UBound(shape_index) 
    shape_index(i) = i 
Next 

Set shprng = sht.Shapes.Range(shape_index)