Correspondance CMJN

Résolu
Signaler
Messages postés
171
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
-
Messages postés
171
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
-
Bonjour,

Je cherche un code me permettant de convertir une couleur en valeur CMJN, j'ai déjà tout ce qui faut pour l'Héxadécimal le RVB et le Décimal mais pas moyen de trouver un code pour le format papier !

Si vous avez une idée je suis preneur, merci d'avance :-)

Generation Software
http://www.gen-software.com

2 réponses

Messages postés
809
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
29 septembre 2010
9
Salut,










Vas voir sur se site ... tu devrais trouver ton bonheur ...

http://www.vbAccelerator.com










Private Sub calcCMYK()

' Get CMY model colours:
m_lC = &HFF& - m_lR
m_lM = &HFF& - m_lG
m_lY = &HFF& - m_lB

' Choose minimum as black:
If (m_lC < m_lM) Then
If (m_lC < m_lY) Then
m_lK = m_lC
Else
m_lK = m_lY
End If
Else
If (m_lM < m_lY) Then
m_lK = m_lM
Else
m_lK = m_lY
End If
End If

' Set the CMY with black adjustment.
If (m_lK = &HFF&) Then
m_lC = &HFF&
m_lM = &HFF&
m_lY = &HFF&
Else
m_lC = ((&HFF& - m_lR - m_lK) * &HFF&) / (&HFF& - m_lK)
m_lM = ((&HFF& - m_lG - m_lK) * &HFF&) / (&HFF& - m_lK)
m_lY = ((&HFF& - m_lB - m_lK) * &HFF&) / (&HFF& - m_lK)
End If

End Sub






++





Zlub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
171
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007

Mais oui vbaccelerator je l'oubli toujours celui-là (c'est un comble tout de même :o)) et merci pour l'info ;-)

Generation Software
http://www.gen-software.com