업무 중에 답답한게 있어서 코드 수정 좀 부탁드리고쟈 이렇게 글을 올립니다. 

엑셀2010 32비트, 윈764비트 입니다.

아래코드는 매크를 실행하면 범위설정 대화상자가 뜨는데요.

범위를 설정하면 범위 안에 있는 개체가 선택되어집니다.

그런데 위 코드는 범위 안에 개체가 전부 들어가 있어야만 하는데요.

이런 것을 범위 안에 전부 들어와야만 선택이 되도록 하는 방법과 범위안에 일부라도 들어와도 선택이 되게끔 하는 것이죠.

그래서 매크로를 실행하면 나타나는 대화상자에 옵션단추가 두개(즉, 범위 일부, 범위 전부)가 있고

범위설정 할 수 있게 구성해서 사용자가 옵션단추를 선택하고 범위를 설정하게 하는 것이죠.

어떻게 수정하면 좋을런지요? 

Sub 선택영역개체선택()
   Dim MyShape As Object
   Dim rngSelect As Range
   Dim rngMySahpe As Range
   Dim rngSelectedCells As Range
   Dim arrShape() As Variant
   Dim W As Worksheet
   Dim i, j
   
   On Error Resume Next
   
   Set W = ActiveSheet

   i = W.Shapes.Count
   If i > 0 Then
       j = 1
       
       Set rngSelectedCells = Application.InputBox(Prompt:=i & " 개가 있습니다. 작업 하고자하는 범위를 선택하세요" _
, Title:="범위 선택", Type:=8)
       Application.ScreenUpdating = False

       ReDim arrShape(1 To i)

       For Each MyShape In W.Shapes
           Set rngMySahpe = MyShape.TopLeftCell

           Set rngSelect = Application.Intersect(rngSelectedCells, rngMySahpe)
           If Not rngSelect Is Nothing Then

               arrShape(j) = MyShape.Name
               j = j + 1

           End If
       Next MyShape

       If j > 1 Then
           ReDim Preserve arrShape(1 To j - 1)
           W.Shapes.Range(arrShape).Select
       End If

       Set rngMySahpe = Nothing
       Set rngSelect = Nothing
       Set rngSelectedCells = Nothing
       Set W = Nothing
       Erase arrShape

       If j > 1 Then
           MsgBox j - 1 & " 개 선택"
       End If
       
       Application.ScreenUpdating = True
   End If
End Sub