TintAndShade et PatternTintAndShade dans Excel 2003

J'ai ajouté TintAndShade et PatternTintAndShade à Excel 2007 macro vba. Un collègue a mis à l'essai dans Excel 2003 et a constaté que ces commandes ne fonctionnent pas.

Comment puis-je convertir ensuite le code suivant dans quelque chose qui va travailler dans Excel 2003?

With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 5296274
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

où les lignes qui ont besoin de conversion sont:

    .TintAndShade = 0
    .PatternTintAndShade = 0

Remarque: - je l'utiliser pour changer les propriétés de la cellule.

InformationsquelleAutor Wikis | 2011-10-14
  1. 1

    TintandShade ne fonctionne que pour les formes dans Excel 2003. Les cellules sont collées à la norme laid couleurs. Vous pouvez rendre votre code conditionnelle basée sur la version si.

        With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 5296274

    If Application.Version >= 12 then
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End If

    End With
    • Ainsi, 12 = excel 2007? Merci!
    • 12 = Excel 2007, 14 = Excel 2010 et 11 = Excel 2003. Je ne sais pas ce qui s'est passé à 13?
    • la superstition est intervenu?
    • Je n'ai jamais vraiment pensé à ce scénario. Bonne réflexion... je vais Peut-être juste une recherche sur google.
    InformationsquelleAutor TheFuzzyGiggler
  2. 0

    .PatternTintAndShade a été ajouté dans la version 2007, il en est tout simplement pas disponible en 2003

    .TintAndShade n'est pas applicable à des plages en 2003 (seules les formes)

    Cela dit, la définition de ces à 0 annule leur effet, de sorte que si il ya quelque chose que vous ne sont pas de nous dire que vous ne pouvez pas besoin d'utiliser à tous.

    MODIFIER

    Lors de l'enregistrement peut être utile, il va souvent produire du code plus que ce qui est nécessaire pour votre but, en particulier lors de la définition de format etc. Et il peut produire un code différent dans différentes versions. Afin de l'utiliser comme un guide, pas un évangile.

    Ge une couleur de remplissage sur une plage (à l'aide de la barre d'outils de peinture)

    Excel 2010

    Sub Macro1()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

    Excel 2003 (et de l'exécution de cette macro en 2010, produit le même résultat qu'en 2003)

    Sub Macro1()
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub
    • Vérification du code, j'ai aussi utilisé une autre valeur dans un autre lieu. Mais j'ai eu ce code à partir de l'enregistrement de macros.
    InformationsquelleAutor chris neilsen