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?

[Minick]

A tout hazard, essaie en passant par ShapeRange

Code :

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

1
2
3
4
5
6
7
8
9
10
For lScan = 1 To BRACES_COUNT
        chtChart.Shapes("shpBrace" & CStr(lScan)).ShapeRange.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.ShapeRange.Left = sngLeft
        Selection.ShapeRange.Top = sngTop
        Selection.ShapeRange.Width = sngWidth 'Ici la hauteur est quand même modifiée
Next lScan

Quel type d'objet cherches-tu a modifier?
(Je me souviens avoir vu quelque par qu'on pouvait tester 2007 chez crosoft sans installation, j'essaierai...)

++
Minick

[seba_stien]

ca ne fonctionne pas...

erreur:Object doesn't support this property or method

L'objet en question se trouve dans insert==>Picture==>AutoShapes==>Basic Shapes==>Left Brace

Je l'ai mis de manière horizontale(Tourne de 45° à gauche) de manière à avoir l'ouverture en haut....

[Minick]

Essaies comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
For lScan = 1 To BRACES_COUNT
        chtChart.Shapes("shpBrace" & CStr(lScan)).ShapeRange.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
Next lScan

Le test que j'ai pu effectuer a fonctionne pour moi...

++
Minick

[seba_stien]

Merci, mais j'ai trouvé!!!! Sur 2007 quand on fait une rotation d'un objet la largeur devient la hauteur et la hauteur la largeur!!!! MERCI MICROSOFT POUR LEUR LOGIQUE!!!

Je vais faire une condition qui suivant la version inversera les 2...

Merci à toi pour ton aide

à plus

Seba_stien