Discussion :

[twitty20]

Bonjour
Ca y est le camambert fonctionne tres bien, mais il me reste un prob
Le camambert généré est trés grand et j'arrive pas à modifier sa taille, j'ai cherché sur le net & j'ai essayé de suivre les instructions de la macro en excel, mais ca me génère tjs une erreur lors de la compilation.
L'erreur est au niveau des deux lignes:

l_objexcel.ActiveSheet.Shapes("Graphique 1").ScaleWidth 0.93, msofalse, msoScaleFromTopLeft
l_objexcel.ActiveSheet.Shapes("Graphique 1").ScaleHeight 0.86, msofalse, msoScaleFromTopLeft

Quelqu'un a une idée sur la cause de l'erreur ?
(Je vais mettre commem le programme modifié "CHART")

Merci de bien vouloir me repondre

[Silvers]

Je regarde tout de suite

[Silvers]

Moi j'utiliste tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    l_objexcel.ActiveSheet.Shapes("graphique 1").Width = 350
     l_objexcel.ActiveSheet.Shapes("graphique 1").Height = 350

[twitty20]

Merci pour votre réponse
J'ai déjà essayé mais ca marche pas, quand j'ecris
l_objexcel.ActiveSheet. dans la liste deroulante j'ai pas "shapes"
(l'erreur est : L'élément portant ce nom est introuvable)

[Silvers]

Et sa alors sa peu peut etre marcher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

l_objexcel.ActiveChart.width = 350

[Silvers]

Ecoute j'ai tester en virtual PC avec office 2003 et c'est effectivement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
l_objexcel.ActiveSheet.Shapes("Graphique 1").ScaleWidth(0.93), msoFalse,msoScaleFromTopLeft
         l_objexcel.ActiveSheet.Shapes("Graphique 1").ScaleHeight(0.86), msoFalse, msoScaleFromTopLeft

Vérifie bien que tu a bien le bon nom du graphique

[twitty20]

Quand je mets : l_objexcel.ActiveChart. dans la liste deroulante j'ai pas width.
L'erreur est : le membre public 'width' de type chart est introuvable

[Silvers]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
l_objexcel.ActiveChart.PlotArea.Select
l_objexcel.selection.width = 350
_objexcel.selection.Height= 350

Sinon pourquoi ne pas mettre en picturebox pour stocker l'image avec un resize automatique de l'image comme sa elle s'adapte a la taille de ton picbox ? nan ?

[twitty20]

J'ai mis "Graphique1", je sais pas comment vérifier que c'est le bon nom de mon graphe

Rq: l'instruction :

l_objexcel.ActiveSheet.Shapes("Graphique 1").ScaleWidth(0.93), msoFalse,msoScaleFromTopLeft

est soulignée par un trait bleu, donc je pense que VB ne reconait meme pas l'instruction ,( il me met end of statement expected)

[twitty20]

Je vais essayer

[Silvers]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

l_objexcel.ActiveSheet.Shapes("Graphique 1").ScaleWidth(0.93, msoFalse,msoScaleFromTopLeft)

Attention au parenthese !

Tout ses arguments : 0.93, msoFalse,msoScaleFromTopLeft appartiennent a ScaleWidth !!

[twitty20]

Je viens d'essayer:

l_objexcel.ActiveSheet.Shapes("Graphique 1").ScaleWidth(0.93, msoFalse,msoScaleFromTopLeft)

Tjs la même erreur !

Par contre quand j'ai mis :

l_objexcel.ActiveChart.PlotArea.Select
l_objexcel.selection.width = 350
_objexcel.selection.Height= 350

L'aspect du graphe a changé (C'est comme si il a été zoomé)

[Silvers]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
l_objexcel.ActiveSheet.Shapes("Graphique 1").ScaleWidth(0.93, 0,0)
l_objexcel.ActiveSheet.Shapes("Graphique 1").ScaleHeight(0.93, 0,0)

essay sa pour voir

[twitty20]

Je viens d'essayer, mais j'ai l'erreur:

L'élément portant ce nom est introuvable

[Silvers]

C'est deja sa, on c'est que sa marche c'est juste le nom de ton graphe qui n'est pas bon.

attend je vais te trouver un truc pour eviter de renseigner le nom

[Silvers]

OK c'est bon pour moi !

Au lieu de donné son nom donne son index :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
l_objexcel.ActiveSheet.Shapes(1).ScaleWidth(0.93, 0,0)
l_objexcel.ActiveSheet.Shapes(1).ScaleHeight(0.93, 0,0)

[twitty20]

Je viens d'essayer

l_objexcel.ActiveSheet.Shapes(1).ScaleWidth(0.93, 0,0)

Erreur: L'index de cette collection est en dehors des limites

Rq: J'ai vérifié que mon index = 1 par:
textbox = l_objexcel.ActiveChart.index.toString

[Silvers]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

l_objexcel.sheets(1).Shapes(1).ScaleWidth(0.93, 0,0)

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

l_objexcel.sheets(0).Shapes(0).ScaleWidth(0.93, 0,0)

Verifie aussi sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

l_objexcel.ActiveSheet.shapes.count

[Silvers]

Sinon essay sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

l_objexcel.sheets("Feuil1").Shapes(1).ScaleWidth(0.93, 0,0)

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

l_objexcel.sheets("Feuil1").Shapes(0).ScaleWidth(0.93, 0,0)

[twitty20]

Pour les 2 premières instructions, même erreur: L'index de cette collection est en dehors des limites

j'ai mis textbox = l_objexcel.ActiveSheet.shapes.count
le resultat textbox = 0