Definir la taille d'une fenetre

[neness0912]

Bonjour le forum,

J'ai un peu cherché dans les discutions déjà présentes mais je n'ai pas trouvé la solution à mon problème.
J'ai fait une macro Excel qui crée un graph, déplace et la redimensionne sur une feuille à un emplacement bien particulier. Quand je m'en sers chez moi pas de problème, mais des que je change de PC le graph ne se place plus au bon endroit sur la feuille.
Je pense que le problème vient du fait que ma fenêtre n'a pas la même taille sur tout les PC.
Ce que je voudrai donc c'est savoir comment définir une taille de fenêtre le temps que ma macro place le graph et ensuite revenir à la taille normale.

J'ai déjà essayé avec des Application.WindowState = xlMaximized et Application.WindowState = xlNormal, mais ça ne change rien.

Apres tout le temps que j'ai passé sur cette macro j'avoue que je suis un peu blasé de devoir repositionner ce graph à la main à chaque fois que je ne m'en sert pas chez moi!

Merci d'avance à toutes les bonnes volontés qui voudrons bien m'aider. Je suis ouvert à tout…

 

[tototiti2008]

Re : Definir la taille d'une fenetre

Bonjour neness0912,

le plus simple est sans doute de se baser sur une cellule

Si tu peux déterminer la cellule où le graph devra se positionner, tu pourra utiliser les propriétés Left et Top de ton Objet Range

 

[neness0912]

Re : Definir la taille d'une fenetre

Merci tototiti2008 de ce début de piste mais je ne vois pas bien ce que tu veux dire. Si par exemple je voulais que le coin haut gauche du graph soit en B9 quel genre de code il me faudrait ?

 

[tototiti2008]

Re : Definir la taille d'une fenetre

Bonjour à tous,

un truc du genre :

Dim Graph As ChartObject
    Set Graph = ActiveSheet.ChartObjects.Add(Left:=ActiveSheet.Range("B9").Left, Top:=ActiveSheet.Range("B9").Top, Height:=317, Width:=374)

 

[kiki29]

Re : Definir la taille d'une fenetre

Salut, un exemple avec un fichier de lecture et un autre de données sans doute à adapter à ton contexte

 

[neness0912]

Re : Definir la taille d'une fenetre

Merci à vous c'est une super piste.
ça ne fait pas encore ce que je veux par ce que maintenant toutes mes commandes en ActiveChart.XXX bug mais je pense que je vais arriver à remetre le code comme il faut.