Discussion :

[seba_stien]

Bonjour,

Je selectionne un objet dont j'aimerais modifier la hauteur, la largeur, la position. Mon problème c'est que quand je set ma largeur il modifie automatiquement la hauteur, ce qu'il ne fait pas sur Office excel 2003.

Est-ce que quelqu'un saurait comment je peux faire pour modifier ma largeur sans que ma hauteur ne change?

Merci d'avance

Seba_stien

[Minick]

Salut,

Je n'ai pas 2007 mais essaies en forcant cette propriete de ton objet:

Code :

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

LockAspectRatio = msoFalse

++
Minick

[seba_stien]

Merci pour ton aide mais malheureusement ca ne change rien....

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For lScan = 1 To BRACES_COUNT
        chtChart.Shapes("shpBrace" & CStr(lScan)).LockAspectRatio = msoFalse
        chtChart.Shapes("shpBrace" & CStr(lScan)).Select
        sngLeft = chtChart.ChartArea.Left + chtChart.Axes(xlValue).Left + ((chtChart.Axes(xlCategory).Width / (BRACES_COUNT * lBarsPerYear + 1)) * ((lScan - 1) * lBarsPerYear + 1)) - 3
        sngTop = chtChart.ChartArea.Top + chtChart.PlotArea.Top + chtChart.PlotArea.Height
        sngWidth = (chtChart.Axes(xlCategory).Width / (BRACES_COUNT * lBarsPerYear + 1)) * (lBarsPerYear - 1)
        Selection.Left = sngLeft
        Selection.Top = sngTop
        Selection.Width = sngWidth 'Ici la hauteur est quand même modifiée
Next lScan

J'ai 3 objets que je place et adapte par rapport à un axe de mon graphique.

Merci vraiment de m'aider....

Seba_stien

[Minick]

As tu essaies de regarder dans les proprietes de ton objet et de modifier tout ce qui concerne les dimensions et proportions en utilisant l'enregistreur de macro
pour voir si tu n'aurais pas une autre propriete specifique a 2007.

++
Minick

[seba_stien]

Oui et je n'ai rien trouvé...

autre idée?