Modifier la largeur d'un objet

Version imprimable

10/06/2009, 09h31
seba_stien

Modifier la largeur d'un objet

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
10/06/2009, 09h49
Minick

Salut,

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

Code:

LockAspectRatio = msoFalse

++
Minick

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

Voici mon code:

Code:

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

10/06/2009, 10h15
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
10/06/2009, 10h41
seba_stien

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

autre idée?

A tout hazard, essaie en passant par ShapeRange

Code:

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

10/06/2009, 13h08
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....

Essaies comme ceci:

Code:

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

10/06/2009, 15h35
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