Sub ChangeShapeColor()
    Dim shp As Shape
    Dim currentColor As Long
    Dim newColor As Long
    Dim userInput As String
    
    ' 선택된 도형을 가져옴
    On Error Resume Next
    Set shp = ActiveWindow.Selection.ShapeRange(1)
    On Error GoTo 0
    
    ' 선택된 도형이 없으면 메시지 표시
    If shp Is Nothing Then
        MsgBox "도형을 선택하세요.", vbExclamation
        Exit Sub
    End If
    
    ' 현재 색상 코드 가져오기
    currentColor = shp.Fill.ForeColor.RGB
    
    ' 입력 박스 구성 (한 줄 입력)
    userInput = InputBox("현재 색상 코드: #" & Right("000000" & Hex(currentColor), 6) & vbCrLf & _
                         "변경할 색상 코드 (6자리, 예: 123ABC):", "색상 변경")
    
    ' 입력값 유효성 검사
    If Len(userInput) <> 6 Or Not IsHex(userInput) Then
        MsgBox "올바른 6자리 색상 코드를 입력하세요.", vbExclamation
        Exit Sub
    End If
    
    ' 색상 변경
    newColor = RGB(CByte("&H" & Left(userInput, 2)), _
                   CByte("&H" & Mid(userInput, 3, 2)), _
                   CByte("&H" & Right(userInput, 2)))
    
    On Error Resume Next
    ' 모든 도형 색상 변경
    Dim sld As Slide
    Dim s As Shape
    For Each sld In ActivePresentation.Slides
        For Each s In sld.Shapes
            If s.Fill.ForeColor.RGB = currentColor Then
                s.Fill.ForeColor.RGB = newColor
            End If
        Next s
    Next sld
    On Error GoTo 0
    
    MsgBox "색상이 변경되었습니다.", vbInformation
End Sub

Function IsHex(value As String) As Boolean
    Dim i As Integer
    IsHex = True
    For i = 1 To Len(value)
        Select Case Mid(value, i, 1)
            Case "0" To "9", "A" To "F", "a" To "f"
                ' Do nothing, valid character
            Case Else
                IsHex = False
                Exit Function
        End Select
    Next i
End Function