Convertir string en variant pour disgner un Fill.Patterned et Color
Bonjour a tous,
Voici un petit problème que j'ai que je n'arrive pas à contourner.
J'ai réussi à déclarer une variable de type Variant et lui est attribué une valeur possible de ChartFillFormat.Patterned.
Cependant je veux faire un fichier de configuration qui permet de rentré les différents motif à la main. Je le récupère en string donc dans une collection mais après pas moyen de lui assigné cette valeur qui est un string.
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| 'LECTURE DU FICHIER
'JE PASSE LES DETAILS
Line Input #f, strLine
collecMotif.Add strLine
Line Input #f, strLine
collecColor.Add strLine
close f
'J'ai donc collecMotif(1)= "msoPattern90Percent"
'Et collecColor(1)= "RGB(0,0,0)"
'Tracer du graphe
'JE PASSE LES DETAILS
with .SeriesCollection(1)
.Fill.Patterned collecMotif(1) 'ERREUR LOGIQUE CAR C'EST UN STRING et on veut une énumération
.Interior.Color = collectColor(1) 'Erreur
end with
'... |
Voila je ne vois pas de fonction ou autre pour ne plus avoir ce problème..
Merci a tous
Bastien
