Comment obtenir des couleurs fait par une échelle de couleurs de la mise en forme conditionnelle d'Excel 2012 par code VBA

J'ai besoin de savoir: comment obtenir des couleurs fait par une échelle de couleurs de la mise en forme conditionnelle d'Excel 2010 au travers du code VBA. Ces couleurs seront ensuite attribués par VBA comme arrière-plan du graphique selon l'image suivante:

www.lnkm.cz/Slozka/Example.jpg http://www.lnkm.cz/Slozka/Example.jpg

J'ai fait une recherche sur divers sites web et:

La plupart des gens conseils sur la façon de lire la couleur de la mise en forme conditionnelle par la méthode
<Cell>.FormatConditions(index that is active).Interior.ColorIndex
mais dans mon cas, ce n'est pas la cause de l'erreur “cet Objet ne gère pas cette propriété ou cette méthode”
Certaines personnes des conseils pour écrire calcul de couleurs (basé sur les cellules de la valeur). J'ai trouvé différentes façons de le faire, mais aucun d'eux ne peut calculer les mêmes couleurs que a été calculé précédemment par excel (même les couleurs comme sur la photo précédente).

Donc je pose la question:

Est directement prêt couleurs à partir de cellules? (ou ces couleurs ne sont pas accessibles pour l'API)
Savez-vous comment calculer les mêmes couleurs que excel de calcul?
Connaissez-vous une autre façon de comment résoudre mon problème?

Je crois qu'elle a à travailler en quelque sorte.

Avez-vous un code spécifique de l'échantillon que vous essayez de travailler à travers? Pas tout à fait claire sur ce que vous essayez de faire. Il est facile de lire les couleurs directement à partir de cellules comme oSheet.Range("A1").Interior.Color ou oSheet.Range("A1").Interior.ColorIndex. Peut-être il y a un autre bug dans le code que nous pouvons vous aider avec.
Pour votre "Objet" d'une erreur sur le point #1, vous devez définir votre cellule à quelque chose d'abord. Soit faire référence directement (par exemple,ActiveSheet.Range("A1")>.FormatConditions(SomeVariable).Interior.ColorIndex) ou SET comme une variable (par exemple,Set MyCell = ActiveSheet.Range("A1"))
Salut Gaffi, merci pour votre réponse, mais je l'ai déjà fait. Je établis par diverses cellules par différents moyens (fonction, les cellules sélectionnées, etc.). Je l'ai mis après .FormatConditions(SomeVariable), d'autres en commande qui était déjà au travail. Donc, je pense que "FormatConditions" ne sais pas "de l'intérieur"

InformationsquelleAutor Jure | 2012-03-19

4

si pas de meilleure réponse, vous pouvez essayer cette solution de contournement:
1. /lien copiez vos données sur des cellules sous le graphique (avec des formules comme =Sheet1!A1)
2. appliquer la même mise en forme conditionnelle
3. masquer les valeurs (avec un format de nombre personnalisé comme "", c'est à dire littéral de chaîne vide (2 doubles quotes))
4. faire de la charte transparent
5. aligner les cellules avec le diagramme
Mise à JOUR:

ou vous pouvez essayer de calculer la couleur par approximation linéaire pour chaque R, G, B canal si le format conditionnel utilise que 2 couleurs de base (r1, g1, b1) et (r2, g2, b2) pour les 2 cas de coin qui peut être
- min et max valeur, par exemple: 0 - 4 000
- min et max pour cent, par exemple: 10% - 90%
  (je crois que vous pouvez utiliser % * [max_value - min_value] pour obtenir la valeur réelle)
- min et max percentile, par exemple: 0e percentile - 100e centile
de pour cent /centile options, vous devez d'abord les convertir une valeur réelle pour le pour cent /percentile de la valeur, alors si value < min ou value > max utiliser le coin des couleurs, sinon:
```
r = r1 + (r2 - r1) * (value - min_value) / (max_value - min_value)
g = ...
b = ...
```
- Salut deathApril, bonne idée, mais j'simplifier l'explication à ma question. En fait j'ai besoin d'ajouter à chaque coin en haut à gauche de chaque graphique petit rectangle (en forme dans excel terminologie) avec la couleur de mise en forme conditionnelle et de sa valeur. Si ce sera le fond d'écran de la carte, il rend impossible d'observer le graphique des points de violet foncé des cas. mais vous idée était inspirating.
- si vous avez eu votre tableau blanc à l'exception de la petite secteurs de rectangle dans le coin supérieur gauche de formes... mais non, il ne fonctionnera pas pour récupérer "sa valeur' 🙁
- j'ai mis à jour ma réponse, mais le calcul est juste mon hypothèse, je n'ai pas excel ici pour le tester..
- Ive essayer la mise à jour. Les couleurs ne sont pas les mêmes que excel condition de mise en forme. Mais le plus gros de la matrice, moins évidente différence de couleurs. Je vais essayer de voir s'il acceptable pour mes besoins, et vous permettre de savoir si c'est résolu.
InformationsquelleAutor Aprillion
2

Cela permettra de copier une image d'une cellule du coin supérieur gauche d'un chartobject sur la même feuille de calcul. Remarque l'image est liée à la copie de la cellule si la valeur ou la mise en forme des changements de couleur, elle va changer de match.
```
Sub Tester()

    CopyLinkedPicToPlot ActiveSheet.Range("E4"), "Chart 2"

End Sub

Sub CopyLinkedPicToPlot(rngCopy As Range, chtName As String)

    Dim cht As ChartObject

    Set cht = ActiveSheet.ChartObjects(chtName)

    rngCopy.Copy
    With rngCopy.Parent.Pictures.Paste(Link:=True)
        .Top = cht.Top
        .Left = cht.Left
    End With

End Sub
```
EDIT: je viens de testé avec un assez petit 4x8 matrice de cellules, de diagrammes et de la performance est assez mauvais! Peut-être mieux de simplement coller sans Lien:=Vrai ...
- Ive essayer cette solution, mais il y a un problème avec la performance. Pour mon but, j'ai besoin d'un changement de paramètre avec le nom "NPHR" (orange sur la photo précédente) et d'observer les changements de "violet formaté zone" et "groupe de graphiques" (à gauche et à droite de l'image). Les deux contient nombre énorme de données (fichier excel dispose de 90 MO) et un changement de paramètre NPHR prend 0,5 s, la seconde pour "violet formaté zone" et 2,5 s pour "groupe de graphiques". Une fois que je copie juste une cellule comme yoiu conseils compter environ 6 secondes, j'ai gues qu'il sera vraiment tres lent pour tous nécessaire cellules.
InformationsquelleAutor Tim Williams

Ce n'est pas spécifique à votre problème, mais peut être facilement modifié pour résoudre votre problème...

Sub CopyCondFill()
    Dim FromSheet As Object
    Dim ToSheet As Object
    Dim FromSheetName as String
    Dim ToSheetName as String
    Dim ToRange As Range
    Dim StrRange As String

    '''Sheet with formatting you want to copy
    FromSheetName = "YourSheetsName"
    Set FromSheet = Application.ThisWorkbook.Sheets(FromSheetName )
        '''Start of range within sheet you want to copy
        FromFirstRow = 3
        FromFirstCol = 2

    '''Sheet you want to copy formatting to
    ToSheetName = "YourSheetsName"
    Set ToSheet = Application.ThisWorkbook.Sheets(ToSheetName)
        '''range to copy formatting to
        ToFirstRow = 3
        ToFirstCol = 2
        '''NOTE: Adjust row/column to take lastrow/lastcol from or enter value manually
        ToLastRow = FromSheet.Cells(Rows.Count, 1).End(xlUp).Row
        ToLastCol = FromSheet.Cells(2, Columns.Count).End(xlToLeft).Column
        Set ToRange = ToSheet.Range(Cells(ToFirstRow, ToFirstCol), Cells(ToLastRow, ToLastCol))

        '''Apply formatting to range
        For Each cell In ToRange
            StrRange = cell.Address(0, 0)
            ToSheet.Range(StrRange).Offset(ToFirstRow - FromFirstRow, ToFirstCol - FromFirstCol).Interior.Color = _
                FromSheet.Range(StrRange).DisplayFormat.Interior.Color
        Next cell

End Sub

InformationsquelleAutor RP2

1

Essayez ceci:
```
<Cell>.DisplayFormat.Interior.Color
```
Cela devrait word Excel au plus tard en 2010.

InformationsquelleAutor Hamed

Cela a fonctionné pour moi, en fonction de la réponse de JKirchartz

Sub copyBackgroundColors(source As Range, target As Range)
    target.Interior.color = source.DisplayFormat.Interior.color
End Sub

InformationsquelleAutor CodeKid

-1

C'est de répondre en partie à votre question. La colonne 1 du tableau ci-dessous répertorie Excel standard de 40 couleurs. Les colonnes 2, 3 et 4 de la liste rouge, vert et bleu de chaque couleur. Donc, si vous voulez une cellule de la police de caractères à la lumière orange:

Cell(Row, Column).Font.Color = RGB(255, 153, 0)

Si vous essayez de tout autre rouge-vert-combinaison, Excel va le faire correspondre à la plus proche l'une de ces couleurs standard bien qu'Excel de l'idée de "la plus proche" ne correspond pas à la mienne.

Espère que cela aide si vous obtenez l'autre partie de la réponse à votre question.

Colour                Red  Green   Blue
Black                   0      0      0
Light orange          255    153      0
Lime                  153    204      0
Gold                  255    204      0
Bright green            0    255      0
Yellow                255    255      0
Grey 80%               51     51     51
Dark teal               0     51    102
Plum                  153     51    102
Sea green              51    153    102
Dark blue               0      0    128
Dark red              128      0      0
Violet                128      0    128
Teal                    0    128    128
Grey 50%              128    128    128
Grey 40%              150    150    150
Indigo                 51     51    153
Blue-grey             102    102    153
Tan                   255    204    153
Light yellow          255    255    153
Grey 25%              192    192    192
Aqua                   51    204    204
Red                   255      0      0
Rose                  255    153    204
Light green           204    255    204
Blue                    0      0    255
Pink                  255      0    255
Light blue             51    102    255
Lavender              204    153    255
Sky blue                0    204    255
Pale blue             153    204    255
Turquoise               0    255    255
Light turquoise       204    255    255
Dark green              0     51      0
White                 255    255    255
Olive green            51     51      0
Brown                 153     51      0
Orange                255    102      0
Green                   0    128      0
Dark yellow           128    128      0

Je pense que Excel 2007 est moins enclin à claquer les couleurs de la palette que les versions antérieures. Par exemple: voir databison.com/index.php/...
Merci pour l'information, je vais essayer. J'ai effectué l'expérimentation qui a entraîné dans la liste ci-dessus sept ou huit ans, et je n'ai jamais eu de raison de le revisiter. Depuis que je suis donc prudent de s'en tenir à cette liste, je n'avais pas remarqué que Excel 2007 était mieux à la manipulation des couleurs que de 2003. Toujours bon d'apprendre quelque chose de nouveau. Je suis aussi heureux qu'une liste de Excel couleurs sont disponibles sur l'internet aujourd'hui; il n'y a rien de semblable que j'ai pu trouver quand j'en avais besoin.
où avez-vous trouver cette liste? source?
J'ai créé ma liste par l'expérimentation. J'ai cellules colorées et de lire ensuite les Cellules.L'intérieur.Couleur. Si vous rechercher sur le web pour "Excel palette de couleurs", vous trouverez un certain nombre de sites contenant ces informations,

InformationsquelleAutor Tony Dallimore

Vous devez vous connecter pour publier un commentaire.