소프트웨어 Excel 도형문자(?) 바꾸기 질문입니다.

alt + F8 매크로에서 drawing2string 매크로를 실행합니다.^^

- 셀을 선택한 상태에서 실행하면 모든 drawing에 대해 실행하고,

- drawing 중 일부만 선택하고 실행하면 해당 drawing 에만 적용됩니다.

Sub drawing2string()

    If TypeName(Selection) = "Range" Then ActiveSheet.DrawingObjects.Select

    For Each obj In Selection

        Select Case obj.Text

            Case "!": v = "Some concerns"

            Case "+": v = "High risk"

            Case "-": v = "Low risk"

        End Select

        obj.TopLeftCell = v

    Next

End Sub

지후빠님께,

늘 도움에 감사드립니다.

문자가 아니라서 그런지 VBA까지 동원되네요.

귀한 시간 도움 주셔서 고맙습니다.

Happy day!

P.S.: 문자는 바뀌었는데, 도형(?)은 남아 있네요. 많은 내용이라 수작업이 시간이 걸리네요.

도형(?)도 단번에 없애는 방법이 있을까요?

확인하시라고 남겨뒀습니다. 한 줄 obj.Delete 추가하면 됩니다. 안전 장치로 if 문 추가하였습니다.

windowsforum_test.xlsm

Sub drawing2string()

    If TypeName(Selection) = "Range" Then ActiveSheet.DrawingObjects.Select

    For Each obj In Selection

        Select Case obj.Text

            Case "!": v = "Some concerns"

            Case "+": v = "High risk"

            Case "-": v = "Low risk"

            Case Else: v = "else"

        End Select

        If v <> "else" Then obj.TopLeftCell = v: obj.Delete

    Next

End Sub

지후빠님께,

도움에 정말 감사드립니다.

한큐에 해결이 됐네요.

Happy day!