is there another way to shorten this code?

thanks

Sub ColorSelection()

    If UserForm1.DesignBestEcImage1.Enabled = True Then
        UserForm2.Show
    End If

    If UserForm2.Image1.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &H0&
    End If
      
    If UserForm2.Image2.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &H80&
    End If
        
    If UserForm2.Image3.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &HFF&
    End If
    
    If UserForm2.Image4.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &HFF00FF
    End If
    
    If UserForm2.Image5.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &HCC99FF
    End If
    
    If UserForm2.Image6.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &HCC99FF
    End If
    
    If UserForm2.Image7.Enabled = True Then
            UserForm1.DesignBestEcImage1.BackColor = &H800000
    End If

End Sub