modifier des formes ( shapes)

[Christophe]

Bonjour,

Je voudrais pouvoir -dans une macro qui dessine un cercle- modifier le type
de fond . Ex plein ou vide --> MsoTrue ou MsfoFalse

Le choix se trouve sous forme de texte dans une liste excel.

Quand je passe la valeur par un chaine de caracteres , il affiche un
message d'erreur d'inompatibilité type . Je pense que celà vient des
guillemets qu'il rajoute ( "MsoTrueFalse" )


Mon code actuel
---------------------

Dim Style_fond As String
Style_fond = "MsoTrue"

ActiveSheet.Shapes.AddShape(msoShapeOval,Pos_X, Pos_Y, Dist_X, Dist_Y).Select
Selection.ShapeRange.Fill.Visible = Style_fond



La je cale....

Merci d'avance


Christophe

 

[Jean-Marie]

Bonjour Christophe

Attention à l'emploi de thermes dans VBA, ici ce sont des constantes qui facilitent la lecture du code, elles remplacent une valeur numérique. Pour connaître cette valeur, vas dans la boîte "Explorateur d'objet", indique le nom de la constante, puis clique sur la jumelle, tu verras tout en bas de cette boîte la valeur de la constante.

@+Jean-Marie